(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    295455,       6884]
NotebookOptionsPosition[    260864,       6127]
NotebookOutlinePosition[    261341,       6144]
CellTagsIndexPosition[    261298,       6141]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"c3ee9689-8b85-46d0-ba1a-dc389ce6b332"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"fd425cee-cd2e-4fe2-95f8-98220b9450f8"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"9177a2be-c41c-4496-9d15-a65c8e1e021c"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"d8980d91-7642-40c1-84d4-e2966d902786"]
}], "History",
 CellID->1247902091,ExpressionUUID->"0119ceb4-77e3-452e-983e-35d0e5550bec"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"3e4266bb-bedf-43a8-b25e-b17a37fcf777"],

Cell["Tutorial", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"0fad54d5-2f41-495b-bf06-fed572a88df9"],

Cell["RefpropLink", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"e5f48e41-9228-446e-90a1-607de2c9a38d"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"58facb65-b8be-4d84-866d-27d99e0b5f0d"],

Cell["RefpropLink/tutorial/MixturesLegacyAPI", "Categorization",
 CellLabel->"URI",ExpressionUUID->"72d39620-2e02-4370-afa9-eb3376917fa5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552,ExpressionUUID->"21ba2287-6c42-4d23-850d-0c0b917e5114"],

Cell["REFPROP", "Keywords",
 CellChangeTimes->{{3.8229149266564927`*^9, 3.8229149291577773`*^9}},
 CellID->1251852827,ExpressionUUID->"4f4282e9-f4ec-47e0-8d42-28ade2410d3d"],

Cell["RefpropLink", "Keywords",
 CellChangeTimes->{{3.8229149266564927`*^9, 3.822914933806365*^9}},
 CellID->308115743,ExpressionUUID->"073dcb71-ef09-45b3-bbd2-4e119b683c83"],

Cell["Mixtures", "Keywords",
 CellChangeTimes->{{3.8229149266564927`*^9, 3.8229149375523214`*^9}},
 CellID->427627499,ExpressionUUID->"32dd4011-9567-470e-a355-3b668facd3dd"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"87d12553-b931-44d1-ac7c-faf707e6a2ae"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.822913715490048*^9, 3.822913719297863*^9}},
 CellLabel->"Lead",
 CellID->218895918,ExpressionUUID->"9d3d35ed-4895-4b0e-b0be-57ba6ded6c5d"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.822913722186137*^9, 3.822913723706072*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"f0b4f65f-f861-4a4e-9136-4eb0d091c089"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8229137267389917`*^9, 3.8229137282499185`*^9}},
 CellLabel->"Authors",
 CellID->795871300,ExpressionUUID->"64ce57d1-50d5-45f8-9335-80b4dd17baa6"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->199739161,ExpressionUUID->"55112165-5f7f-45ec-8815-c91f3042b29f"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->40625308,ExpressionUUID->"a4696dc6-c059-4f76-93c8-611bd27d1a4a"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->357121918,ExpressionUUID->"15deecec-75f0-4c6c-a50e-f086cece00c4"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->35949532,ExpressionUUID->"9e3d539f-5acd-4717-b633-83588f5388c7"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->929432370,ExpressionUUID->"5a3c0f5e-58c5-4276-b6c1-eb1edd547213"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"1881d5a1-0bcb-42d1-ad12-d193e87cefc0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mixtures (Legacy API)", "Title",
 CellChangeTimes->{{3.822914944328232*^9, 3.8229149488640656`*^9}},
 CellID->509267359,ExpressionUUID->"c2ced554-8351-4ce7-bc24-59c75eb58c74"],

Cell[TextData[{
 "This tutorial demonstrates how use ",
 StyleBox[ButtonBox["RefpropLink",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/guide/RefpropLink"],
  FontWeight->"Bold"],
 " to access fluid ",
 StyleBox["Mixture",
  FontWeight->"Bold"],
 " properties using the Legacy API functions available prior to NIST REFPROP \
10.  These functions can be generally faster than the High-Level interface \
functions introduced in REFPROP 10 because they do little, if any, text \
string processing in the underlying, Fortran-based DLL.  Benchmarks of ",
 StyleBox["RefpropLink",
  FontWeight->"Bold"],
 " Implementation show that the Legacy API functions can be up to 2X faster \
than performing the same calculations through the High-Level API."
}], "Text",
 CellChangeTimes->{{3.822572375064689*^9, 3.822572619045737*^9}, {
  3.8225728821580253`*^9, 3.822572894502008*^9}, {3.822573919328904*^9, 
  3.8225739195892525`*^9}, {3.8229149663153925`*^9, 3.8229149690969806`*^9}, {
  3.8229150157621336`*^9, 3.8229150175124855`*^9}, {3.822915094657113*^9, 
  3.8229150955317736`*^9}, {3.8229151328968325`*^9, 3.822915135880851*^9}, {
  3.831187558216297*^9, 3.831187565510786*^9}},
 CellID->1534169418,ExpressionUUID->"21864a58-75dd-4f87-b0b8-1fd041b09dcc"],

Cell[TextData[{
 "An attempt is made to make this tutorial mirror the ",
 StyleBox["Mixtures",
  FontWeight->"Bold"],
 " (High-Level API) tutorial as closely as possible so that the difference \
between these APIs is clearly visible."
}], "Text",
 CellChangeTimes->{{3.8225735671508784`*^9, 3.822573633382723*^9}, {
  3.8225736706051674`*^9, 3.8225736724771585`*^9}, {3.822573937989023*^9, 
  3.8225739617803926`*^9}, {3.822915173727623*^9, 3.822915177064727*^9}},
 CellID->36100660,ExpressionUUID->"86e5f61c-c9a2-4132-8f3b-e0ff70fa1ff1"],

Cell[TextData[{
 "Before diving in, and along the way, one should be familiar with using ",
 StyleBox[ButtonBox["Pure Fluids (Legacy API)",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"],
  FontWeight->"Bold"],
 " tutorial and probably delve into the unique way that ",
 StyleBox[ButtonBox["RefpropLink",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/guide/RefpropLink"],
  FontWeight->"Bold"],
 " facilitates units by reviewing the ",
 StyleBox[ButtonBox["RefpropLink Units",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/tutorial/Units"],
  FontWeight->"Bold"],
 " tutorial."
}], "Text",
 CellChangeTimes->{{3.82257373591847*^9, 3.822573855323105*^9}, {
  3.822573901437781*^9, 3.82257390161628*^9}, {3.822915228616839*^9, 
  3.822915267682322*^9}, {3.8229153026328397`*^9, 3.822915310041038*^9}, {
  3.8311875943606195`*^9, 3.8311876026395063`*^9}},
 CellID->189076469,ExpressionUUID->"df7c937a-4b4b-4239-b660-4932403cfe55"],

Cell[CellGroupData[{

Cell["Initializing RefpropLink", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.82257418252599*^9, 3.8225741905185843`*^9}, {
  3.8225742225409875`*^9, 3.822574224990436*^9}},
 CellID->43322749,ExpressionUUID->"3ecdadf9-93e9-49c9-8108-0a6228f0594e"],

Cell[TextData[{
 "Before initializing the ",
 StyleBox[ButtonBox["RefpropLink",
  BaseStyle->"Link",
  ButtonData->"paclet:RefpropLink/guide/RefpropLink"],
  FontWeight->"Bold"],
 " package, it is a good idea to clear out any variables and previously \
loaded packages using the ",
 Cell[BoxData[
  ButtonBox["Quit",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "78d7543d-f782-4f6f-870c-268bde50eea6"],
 " command.  This restarts the Mathematica kernel and clears out any previous \
definitions that have been loaded.  This is especially true if you are \
reloading ",
 StyleBox["RefpropLink",
  FontWeight->"Bold"],
 " without shutting down Mathematica."
}], "Text",
 CellChangeTimes->{{3.8225767649737487`*^9, 3.822577004106141*^9}},
 CellID->573431709,ExpressionUUID->"56700291-0ac1-492b-a023-040f90abe275"],

Cell[CellGroupData[{

Cell["Restart the kernel", "MathCaption",
 CellChangeTimes->{{3.822577021923484*^9, 3.822577028146839*^9}},
 CellID->279625114,ExpressionUUID->"a69b1560-9841-4f95-9e80-68d02e5ae3d8"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8225770347022777`*^9, 3.822577035388455*^9}},
 CellLabel->"In[74]:=",
 CellID->713385182,ExpressionUUID->"92b1f14e-3e36-4ea9-8f0c-3ba690d160e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Use Needs or to load the RefpropLink package (Note the \"back apostrophe\")\
\>", "MathCaption",
 CellChangeTimes->{{3.822577113443695*^9, 3.8225771226909647`*^9}, {
  3.8225775112915707`*^9, 3.822577549578165*^9}},
 CellID->872464924,ExpressionUUID->"1df51396-f51e-4c2b-9f0b-206e8703981f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<RefpropLink`\>\"", "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->68619680,ExpressionUUID->"05fef5f2-0130-482c-9e12-bdf33a3183a5"],

Cell[BoxData[
 FrameBox["\<\"Found NIST REFPROP Version: 10.0.0.2\"\>",
  Background->RGBColor[0.88, 1, 0.88],
  FrameStyle->None,
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.822577659569704*^9, 3.8228074097248583`*^9, 
  3.8228077442837973`*^9, 3.822810748568511*^9, 3.822829935452963*^9, 
  3.822856537911189*^9, 3.8228702413880124`*^9, 3.822870576239496*^9, 
  3.822870707372733*^9, 3.8228709039569283`*^9, 3.8262586508928795`*^9, 
  3.826259028282995*^9, 3.8270429483978977`*^9, 3.8288710995445986`*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->728193215,ExpressionUUID->"c773f90a-33e3-45dc-8f50-115e89a62142"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "That's it!  ",
 StyleBox["RefpropLink",
  FontWeight->"Bold"],
 " is now loaded and all of it's public functions and variables are available \
for use.  The initialization will print out the version of NIST REFPROP that \
is installed and being used by RefpropLink.  If a REFPROP installation is not \
found, and error message will display.  "
}], "Text",
 CellChangeTimes->{{3.8225776805236907`*^9, 3.822577724863063*^9}, {
  3.8225986919584985`*^9, 3.822598753630573*^9}, {3.822766216495821*^9, 
  3.822766322911174*^9}},
 CellID->86903750,ExpressionUUID->"4ff4fa51-539a-450e-8bf9-0da12e16ff69"],

Cell[TextData[{
 "This initialization step only needs to be performed once at the beginning \
of a Mathematica session and it's a good idea to put these commands at the \
top of any notebook file.  However, this step doesn't have to be executed in \
the current notebook.  It can be executed in a completely separate notebook, \
but should be executed ",
 StyleBox["before",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " any commands in the current notebook in the current Mathematica session."
}], "Text",
 CellChangeTimes->{
  3.8227662541361265`*^9, {3.8303264695717983`*^9, 3.830326531987807*^9}, {
   3.8303265675237103`*^9, 3.8303266643556786`*^9}},
 CellID->159972398,ExpressionUUID->"2e37655f-01c3-428b-a1f9-6e53ac8da7aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Load a Mixture", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.822917910705035*^9, 3.8229179146704288`*^9}},
 CellID->471261456,ExpressionUUID->"2e1ce5e9-2d69-4946-bda9-9fff2b5da8fd"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"setup", "[", 
     RowBox[{
      StyleBox["hFld", "TI"], ",", 
      StyleBox["hRef", "TI"]}], "]"}], Cell[TextData[{
     "Load multiple fluids files specified in the ",
     Cell[BoxData[
      StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
      "06f7ca44-e41b-4a1a-bca7-b93d4bccc7ab"],
     " List, using the reference state specified in hRef (optional)."
    }], "TableText",ExpressionUUID->"2da037f5-a1f4-452d-bc61-9e5ba1e2a83a"]},
   {
    RowBox[{"setmix", "[", 
     StyleBox["hFld", "TI"], "]"}], Cell[
    "Load a fluids file, hFld, and set a reference state in hRef", 
     "TableText",ExpressionUUID->"2814ae74-71e1-42ee-b913-ac9417b3ec27"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.8225891576481013`*^9, 3.82258922822336*^9}, {
  3.8225893088965864`*^9, 3.822589308908522*^9}, {3.822589424120393*^9, 
  3.822589473882267*^9}, {3.8225895424947777`*^9, 3.8225895472710032`*^9}, {
  3.822589636918223*^9, 3.8225896454583516`*^9}, {3.822589693720276*^9, 
  3.8225896975041447`*^9}, {3.8229449804629993`*^9, 3.822944986030137*^9}, {
  3.822945023198722*^9, 3.822945112078*^9}, {3.822978409216325*^9, 
  3.8229784994001236`*^9}, {3.831188619627223*^9, 3.8311886301191916`*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.25], {
      Scaled[0.75]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->2096742444,ExpressionUUID->"fc78f022-b1e7-4bdf-aa66-650ce738d973"],

Cell["Legacy API functions for loading mixtures.", "Caption",
 CellChangeTimes->{{3.822944946750199*^9, 3.822944957773711*^9}},
 CellID->1891092685,ExpressionUUID->"c58695ec-3cc3-4c64-b9be-5934946fdb24"],

Cell[TextData[{
 "There are basically three ways to load a mixture of fluids into REFPROP.  \
The first is the same as for loading pure fluids - using the ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["setup",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setup"]], "InlineFormula",
  ExpressionUUID->"44b8fd10-3b53-4fba-b51d-20428c9ff029"],
 " function, but specifying more than one fluid string in the input List.  \
The second is to load a single pseudo-pure fluid file (*.ppf).  The third is \
to use the ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["setmix",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setmix"]], "InlineFormula",
  ExpressionUUID->"322ddf32-0022-4388-8325-44d162251057"],
 " function to load a pre-defined mixture file.  We'll explore all three \
here.  Air is a mixture of gasses (pure fluids) that is available in all \
three formats, so we'll use this mixture to demonstrate."
}], "Text",
 CellChangeTimes->{{3.8229785613603697`*^9, 3.8229788234084845`*^9}, {
   3.8229793354080253`*^9, 3.8229793986947813`*^9}, {3.8311885844383764`*^9, 
   3.8311885961191025`*^9}, 3.8311886664620857`*^9},
 CellID->192609466,ExpressionUUID->"8ee9ed2f-0df3-40f9-a7d8-20fc14df3fb8"],

Cell[CellGroupData[{

Cell["Multiple Pure Fluids ", "Subsection",
 CellChangeTimes->{{3.822979151488965*^9, 3.8229791750788884`*^9}},
 CellID->133116597,ExpressionUUID->"a329b6b1-df5c-4a14-accf-39bfc5287517"],

Cell[TextData[{
 "The ",
 Cell[BoxData[
  ButtonBox["setup",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setup"]], "InlineFormula",
  ExpressionUUID->"893534fa-ba48-4a1a-b76d-34d993e295f6"],
 " function has the capability to open multiple fluid files at once; the \
input parameter, ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "bec3fd29-ec1b-4710-ba51-4bcbb5336f87"],
 ", is actually a ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "37cd78ee-c896-4c10-b3cb-7f57999e2654"],
 " of strings containing the names of each pure fluid to be loaded.  For a \
mixture, ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "d332228c-9a64-43dd-85ef-ca32be60da92"],
 " is provided as a multi-element List of comma separated string elements, \
{\"fluid1\",\"fluid2\",\"fluid3\", ... \"fluid20\"}, up to a maximum of 20 \
fluids. The actual REFPROP fluid files have the extension \".FLD\", but this \
is optional in the fluid name strings.  "
}], "Text",
 CellChangeTimes->{{3.8225897170159855`*^9, 3.8225898883018484`*^9}, {
   3.822590061174466*^9, 3.8225901116225367`*^9}, {3.8225902464708996`*^9, 
   3.822590432536229*^9}, {3.8225906287025433`*^9, 3.8225907795420933`*^9}, {
   3.822944890958398*^9, 3.8229449236120915`*^9}, {3.822978851267954*^9, 
   3.8229790607705965`*^9}, 3.8229813483963327`*^9, {3.8255730078496194`*^9, 
   3.825573009721614*^9}, {3.8311886992065325`*^9, 3.8311886996224203`*^9}, 
   3.8311887336773014`*^9},
 CellID->18384341,ExpressionUUID->"165031c0-7af1-4a14-b8af-530c03105c7e"],

Cell[TextData[{
 "In addition, we'll set up a variable, ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "e1d3a918-7c15-4722-996e-6a98cfa2bca9"],
 ", which contains the mixture composition (mole fractions) of a 4-component \
mixture representation for air."
}], "Text",
 CellChangeTimes->{{3.822979836688284*^9, 3.8229799254887743`*^9}, 
   3.831188778102504*^9, {3.83118904586231*^9, 3.831189051520146*^9}, 
   3.8311892097489214`*^9},
 CellID->840914914,ExpressionUUID->"beb820c9-8b27-4391-a163-c784ce8b7d37"],

Cell[CellGroupData[{

Cell["\<\
Use setup to load multiple pure fluids for a 4-component Air mixture\
\>", "MathCaption",
 CellChangeTimes->{{3.822979433530615*^9, 3.8229794859105043`*^9}},
 CellID->94686831,ExpressionUUID->"9513397b-1d9f-4ae2-a752-843e685d90a1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"hAIR4", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Nitrogen\>\"", ",", "\"\<Argon\>\"", ",", "\"\<Oxygen\>\"", ",", 
     "\"\<CO2\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["z", "AIR4"], "=", 
   RowBox[{"{", 
    RowBox[{"0.78084", ",", "0.00934", ",", "0.20948", ",", "0.00034"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", "hAIR4", "]"}]}]}], "Input",
 CellChangeTimes->{{3.822979499699622*^9, 3.822979529136885*^9}, {
  3.8229797124335938`*^9, 3.8229797448868194`*^9}, {3.8229797751518726`*^9, 
  3.8229798130066195`*^9}, {3.822979980998293*^9, 3.8229800092177844`*^9}},
 CellLabel->"In[11]:=",
 CellID->560684107,ExpressionUUID->"cd22343a-58d4-42ff-b08e-880350269a25"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.8229800135302925`*^9, 3.8230561487826743`*^9, {3.826259013053713*^9, 
   3.8262590340794954`*^9}, 3.82704296746993*^9, 3.8288711247861137`*^9, 
   3.831189272878093*^9},
 CellLabel->"Out[13]=",
 CellID->183083025,ExpressionUUID->"d52e1c42-2da4-4001-b008-0f4151bf8cc4"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "A return error code, ",
 Cell[BoxData[
  StyleBox["ierr", "TI"]], "InlineFormula",ExpressionUUID->
  "354d96c4-53ca-42f2-a7d6-3f69925742b1"],
 ", of zero (0) means that the fluids were loaded successfully."
}], "Text",
 CellChangeTimes->{{3.8311890946228776`*^9, 3.831189139460924*^9}},
 CellID->450459046,ExpressionUUID->"711aae22-524a-4268-ab25-fa1149d0ce51"],

Cell[CellGroupData[{

Cell["\<\
Calculate the density of this air mixture at room temperature and pressure.\
\>", "MathCaption",
 CellChangeTimes->{{3.8311892459351606`*^9, 3.831189265454919*^9}},
 CellID->310218064,ExpressionUUID->"73e544c0-2307-4b09-8ae0-7d68377c67ba"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tprho", "[", 
  RowBox[{
   RowBox[{"72", "\[Degree]F"}], ",", 
   RowBox[{"1", "atm"}], ",", 
   SubscriptBox["z", "AIR4"]}], "]"}]], "Input",
 CellChangeTimes->{{3.831189280218458*^9, 3.83118934640642*^9}},
 CellLabel->"In[14]:=",
 CellID->371267101,ExpressionUUID->"51157af2-3f15-42c1-bd47-0a126236ce41"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Dmolar\"\>", "\[Rule]", 
   TemplateBox[{"0.04127195740783054`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.831189353405702*^9},
 CellLabel->"Out[14]=",
 CellID->636514693,ExpressionUUID->"69951bfa-8c33-42bd-b300-c6237bd86d98"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Pseudo-Pure Fluids (.PPF)", "Subsection",
 CellChangeTimes->{{3.8229791862160673`*^9, 3.822979190882613*^9}, {
  3.822979226022629*^9, 3.8229792288580136`*^9}},
 CellID->44886640,ExpressionUUID->"7e53fd15-70a3-4167-b7a5-987cdd38a2fc"],

Cell[TextData[{
 "NIST REFPROP includes a number of pseudo-pure fluids in the fluids\\ \
directory.  Pseudo-pure fluids are mixtures, but their properties have been \
curve fit to a single equation of state (EOS) so that its properties are \
calculated as though it is a pure fluid.  If loading a pseudo-pure fluid, the \
file name ",
 StyleBox["must",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " include the extension \".PPF\".  "
}], "Text",
 CellChangeTimes->{{3.822979071135902*^9, 3.822979134879406*^9}, {
  3.831189183438323*^9, 3.8311891865739403`*^9}},
 CellID->678210058,ExpressionUUID->"db892a8c-ba07-49c7-9942-d19044e28c37"],

Cell[CellGroupData[{

Cell["Use setup to load the pseudo-pure fluid for Air", "MathCaption",
 CellChangeTimes->{{3.8229800261863985`*^9, 3.822980043639744*^9}},
 CellID->230227444,ExpressionUUID->"5007a39f-8c53-4d37-aad7-fec9ce22ed02"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", 
   RowBox[{"{", "\"\<AIR.PPF\>\"", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822980078571312*^9, 3.82298010552123*^9}},
 CellLabel->"In[15]:=",
 CellID->16465047,ExpressionUUID->"ab7b05e1-5412-4164-b4de-07ee0f57650e"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.822980108404521*^9, 3.8229824735883207`*^9, 
  3.826259041614349*^9, 3.8270429735187697`*^9, 3.828871129979228*^9, 
  3.83118946218474*^9},
 CellLabel->"Out[15]=",
 CellID->190227484,ExpressionUUID->"1939ac7e-a503-4165-9a6d-09ca8924ef4f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Calculate the density of this air mixture at room temperature and pressure.\
\>", "MathCaption",
 CellChangeTimes->{{3.8311892459351606`*^9, 3.831189265454919*^9}},
 CellID->385801605,ExpressionUUID->"cf66987f-0b7a-47be-b0c2-9ec2235b7b2a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tprho", "[", 
  RowBox[{
   RowBox[{"72", "\[Degree]F"}], ",", 
   RowBox[{"1", "atm"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.831189280218458*^9, 3.83118934640642*^9}, {
  3.831189481703535*^9, 3.831189483805936*^9}},
 CellLabel->"In[16]:=",
 CellID->156280047,ExpressionUUID->"5d193686-4831-4c56-b7cd-5bbef03ca861"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Dmolar\"\>", "\[Rule]", 
   TemplateBox[{"0.04127309831874532`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.831189353405702*^9, 3.8311894887836227`*^9},
 CellLabel->"Out[16]=",
 CellID->115367962,ExpressionUUID->"ab2c582c-e102-45f0-a06b-3a672b2b818d"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Note that when using pseudo-pure fluids, ",
 StyleBox["there is only one component loaded",
  FontSlant->"Italic"],
 ", Air, which is treated for all function calls as a pure fluid.  The molar \
composition array, ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "86dcbbc2-89fc-4a44-802a-1dcd505d62d8"],
 ", is {1.0} and can be omitted from any property functions; just as for a \
pure fluid.  This greatly simplifies property calls and avoids having to use \
REFPROP's mixing rules, since all the work is done up front to create the \
pseudo-pure fluid."
}], "Text",
 CellChangeTimes->{{3.822980114537118*^9, 3.822980320758537*^9}, {
  3.831189837028163*^9, 3.8311898395494385`*^9}},
 CellID->747896140,ExpressionUUID->"f38e9b06-a872-4026-8136-954dd9ba5c2a"],

Cell["\<\
Note also that the returned density of this pseudo-pure fluid representation \
for Air is very slightly different that the value returned by the \
four-component mixture above, which uses REFPROPs mixing rules.\
\>", "Text",
 CellChangeTimes->{{3.8256186808989563`*^9, 3.8256187384181604`*^9}, {
  3.8311895013759384`*^9, 3.8311895239894857`*^9}},
 CellID->89322858,ExpressionUUID->"7223b4f5-6b3a-431a-b658-3e1e2bcdbb05"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Pre-defined Mixture Files (.MIX) ", "Subsection",
 CellChangeTimes->{{3.822979202048749*^9, 3.822979221954479*^9}},
 CellID->3660113,ExpressionUUID->"6f0763f9-47fb-4760-a932-b7d981cb61dc"],

Cell[TextData[{
 "Pre-defined mixtures are found in the MIXTURE\\ directory of the NIST \
REFPROP installation and end with the file extension \".MIX\".  They contain \
specifically formatted text that identifies the mixture name, numeric \
constants (mw, ",
 Cell[BoxData[
  SubscriptBox["T", "C"]],
  FormatType->"StandardForm",ExpressionUUID->
  "1d8f074b-6aaf-4838-8911-10dd6876d590"],
 ", ",
 Cell[BoxData[
  SubscriptBox["P", "C"]],
  FormatType->"StandardForm",ExpressionUUID->
  "37f2f826-53c2-4c2a-b52e-94f8819a243e"],
 ", ",
 Cell[BoxData[
  SubscriptBox["\[Rho]", "C"]],
  FormatType->"StandardForm",ExpressionUUID->
  "83a4e681-67a4-4464-b568-11a4bd5ccbfd"],
 "), mixture fluids names, and bulk, single-phase mole fractions.  Here is \
the tertiary mixture definition for Air in the AIR.MIX file."
}], "Text",
 CellChangeTimes->{{3.8229803408318167`*^9, 3.8229805506216908`*^9}, {
  3.831190023357005*^9, 3.8311900379170475`*^9}, {3.8311901777799187`*^9, 
  3.8311903324551983`*^9}},
 CellID->219397012,ExpressionUUID->"18137609-b792-4d59-be85-f6021647b5e0"],

Cell["\<\
Air (dry)
 28.958600656 132.83069752889762 3852.042257237323 11.900166877898968
 3
NITROGEN.FLD
ARGON.FLD
OXYGEN.FLD
 .7812
 .0092
 .2096
 0\
\>", "Text",
 Alignment->Left,
 CellFrame->True,
 CellChangeTimes->{{3.822980661372466*^9, 3.822980689972968*^9}, {
   3.8427037185265617`*^9, 3.8427037195648117`*^9}, 3.842703750586855*^9},
 ParagraphSpacing->{0, 2},
 CellID->712019736,ExpressionUUID->"09513cd8-e135-402e-892e-3e8dacd98840"],

Cell["Pre-defined mixture definition in AIR.MIX", "Caption",
 CellChangeTimes->{{3.822944946750199*^9, 3.822944957773711*^9}, {
  3.8229810547009077`*^9, 3.822981098301292*^9}},
 CellID->200475462,ExpressionUUID->"45bc40e8-6422-4cab-84c5-08636012db67"],

Cell["\<\
This file contains the mixture name, the mixture molecular weight and \
critical properties, followed by the number of components, each component \
fluid name, and the composition.  User \".MIX\" files can be created easily \
in an editor, or using the NIST REFPROP GUI to create a mixture and save a \
custom \".MIX\" file (must have write access to the MIXTURES directory or it \
will be saved in the user's VirtualStore by Windows). \
\>", "Text",
 CellChangeTimes->{{3.822981104198517*^9, 3.822981278406536*^9}, {
  3.8311916215162363`*^9, 3.83119164829961*^9}},
 CellID->66519272,ExpressionUUID->"24253353-764f-46db-8aa5-937184c3a610"],

Cell[TextData[{
 "To load a pre-defined mixture file, use the ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["setmix",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setmix"]], "InlineFormula",
  ExpressionUUID->"2357e287-e6c8-409c-9e43-ebe3bd8e94bf"],
 " function, instead of ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["setup",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setup"]], "InlineFormula",
  ExpressionUUID->"95ef6da3-ea3f-4413-bff1-25e227246f73"],
 ".  The \".mix\" extension is optional (since ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["setmix",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setmix"]], "InlineFormula",
  ExpressionUUID->"84ce97e7-56dc-4c0a-aec6-7c59d07cd2bc"],
 " expects a mixture file) and the full path can be specified if the mixture \
file is located somewhere other than the default MIXTURES\\ folder.     "
}], "Text",
 CellChangeTimes->{{3.822981290527116*^9, 3.8229814609812293`*^9}},
 CellID->261721614,ExpressionUUID->"85f2b147-efd7-430d-a205-7ee978974a36"],

Cell[TextData[{
 "Additionally, ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["setmix",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setmix"]], "InlineFormula",
  ExpressionUUID->"4973df81-f4fb-4844-9c28-6f71679bb40f"],
 " will return the list of fluid names as well as the molar composition array \
that was read from the file.  It is important to capture the bulk molar \
composition so that it can be used in subsequent property function calls."
}], "Text",
 CellChangeTimes->{{3.8229814736064606`*^9, 3.8229815704065228`*^9}},
 CellID->305891491,ExpressionUUID->"a2aa6123-70ea-4508-93a6-2a023f7a5d2b"],

Cell[CellGroupData[{

Cell["\<\
Open the Pre-defined Air mixture file, to see the output Lists.\
\>", "MathCaption",
 CellChangeTimes->{{3.8229816117724247`*^9, 3.8229816389477177`*^9}, {
  3.826258684727415*^9, 3.826258692790876*^9}, {3.8262587366226873`*^9, 
  3.826258737551202*^9}},
 CellID->836781195,ExpressionUUID->"79d063b5-31a7-4da4-a848-87b54f8f31ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"setmix", "[", "\"\<AIR.MIX\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.822981662218465*^9, 3.822981694469232*^9}},
 CellLabel->"In[17]:=",
 CellID->2058623809,ExpressionUUID->"731e8ace-3841-4722-bf93-7424de62f43a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"hFiles\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"NITROGEN\"\>", ",", "\<\"ARGON\"\>", 
      ",", "\<\"OXYGEN\"\>"}], "}"}]}], ",", 
   RowBox[{"\<\"z\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.7812`", ",", "0.0092`", ",", "0.2096`"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.822981696322248*^9, 3.826258980653345*^9, 
  3.8262590470318627`*^9, 3.827042991163578*^9, 3.828871142595498*^9, 
  3.831191689141327*^9},
 CellLabel->"Out[17]=",
 CellID->217589838,ExpressionUUID->"8789ba8a-f1d1-4872-ad6c-2fe7e024e5c6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Open the Pre-defined Air mixture file again, capturing the fluids and molar \
composition\
\>", "MathCaption",
 CellChangeTimes->{{3.8229816117724247`*^9, 3.8229816389477177`*^9}, {
  3.822981716804491*^9, 3.8229817255730386`*^9}, {3.826258697286832*^9, 
  3.8262587141747055`*^9}, {3.8262587471913967`*^9, 3.82625874856672*^9}},
 CellID->201793012,ExpressionUUID->"673aaf2b-634c-4bd5-be38-8db1db58900a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["hFluids", "Air3"], ",", 
    SubscriptBox["z", "Air3"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"setmix", "[", "\"\<AIR.MIX\>\"", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822981662218465*^9, 3.822981694469232*^9}, {
  3.8229817361557355`*^9, 3.822981771719598*^9}, {3.822981999172242*^9, 
  3.822982002093401*^9}, {3.8258329596171827`*^9, 3.8258329735848074`*^9}},
 CellLabel->"In[18]:=",
 CellID->286397801,ExpressionUUID->"19595f5e-7907-4d89-84f8-b4c4532b4d2f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"NITROGEN\"\>", ",", "\<\"ARGON\"\>", ",", "\<\"OXYGEN\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7812`", ",", "0.0092`", ",", "0.2096`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.822981696322248*^9, 3.8229817803884187`*^9, 
  3.822982004799164*^9, 3.8230562718904276`*^9, 3.8258330399473677`*^9, 
  3.826258762255119*^9, 3.8262589710500236`*^9, 3.826259050801812*^9, 
  3.827042996427476*^9, 3.8288710667680373`*^9, 3.828871147820538*^9, 
  3.8292808203797035`*^9, 3.831191689379717*^9},
 CellLabel->"Out[18]=",
 CellID->199766943,ExpressionUUID->"408f80f9-22e6-4170-b5db-bf3d759bec24"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Display the mixture in table format", "MathCaption",
 CellChangeTimes->{{3.822981836558186*^9, 3.8229818660283623`*^9}},
 CellID->77012676,ExpressionUUID->"98ea28e7-caed-49a8-a408-324e5a8c7aaa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["hFluids", "Air3"], ",", 
     SubscriptBox["z", "Air3"]}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8229818925493975`*^9, 3.8229820095494857`*^9, {3.82583298212899*^9, 
   3.825832985657528*^9}},
 CellLabel->"In[19]:=",
 CellID->13326163,ExpressionUUID->"fd5eb975-f87f-4811-a183-af108b7eb2f6"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"NITROGEN\"\>", "0.7812`"},
    {"\<\"ARGON\"\>", "0.0092`"},
    {"\<\"OXYGEN\"\>", "0.2096`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8229818976986265`*^9, 3.8229820103533316`*^9, 
  3.823056276594827*^9, 3.8258330450268145`*^9, 3.8262587683169394`*^9, 
  3.826259054367277*^9, 3.8270430011229215`*^9, 3.8288711523833294`*^9, 
  3.831191689561261*^9},
 CellLabel->"Out[19]//TableForm=",
 CellID->158365068,ExpressionUUID->"a87d28cd-205d-4888-b633-5cec739e82c8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Determine the number of components, ",
 Cell[BoxData[
  StyleBox["ncomp", "TI"]], "InlineFormula",ExpressionUUID->
  "b101bb2e-776a-4bc2-9b08-d1e7c6014934"]
}], "MathCaption",
 CellChangeTimes->{{3.822981918661589*^9, 3.822981942972559*^9}, {
  3.8270430299000044`*^9, 3.827043046544473*^9}},
 CellID->11719281,ExpressionUUID->"c3731a79-f2fe-4548-a7f9-eaf54c9aa11a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ncomp", "=", 
  RowBox[{"Length", "[", 
   SubscriptBox["z", "Air3"], "]"}]}]], "Input",
 CellChangeTimes->{{3.8229819497464123`*^9, 3.822982015653133*^9}, 
   3.8258330141862483`*^9},
 CellLabel->"In[20]:=",
 CellID->21137868,ExpressionUUID->"2379b402-6e4b-4ea9-a590-3efa225b9596"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.822981973746249*^9, 3.8229820166834*^9}, 
   3.8230562803188553`*^9, 3.825833050538077*^9, 3.8262587724109936`*^9, 
   3.826258965282444*^9, 3.8262590596112566`*^9, 3.827043008203021*^9, 
   3.828871157516605*^9, 3.831191689758705*^9},
 CellLabel->"Out[20]=",
 CellID->9564997,ExpressionUUID->"cc637db0-c14d-4128-80ba-060bd4aa9165"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Calculate the density of this air mixture at room temperature and pressure.\
\>", "MathCaption",
 CellChangeTimes->{{3.8311892459351606`*^9, 3.831189265454919*^9}},
 CellID->153553872,ExpressionUUID->"d13f12fd-173f-4ea2-a198-55e9d5476477"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tprho", "[", 
  RowBox[{
   RowBox[{"72", "\[Degree]F"}], ",", 
   RowBox[{"1", "atm"}], ",", 
   SubscriptBox["z", "Air3"]}], "]"}]], "Input",
 CellChangeTimes->{{3.831189280218458*^9, 3.83118934640642*^9}, {
  3.831189481703535*^9, 3.831189483805936*^9}, {3.831191708459777*^9, 
  3.8311917173479757`*^9}},
 CellLabel->"In[21]:=",
 CellID->513823176,ExpressionUUID->"1ae1bff0-c63e-45aa-b189-130b5729a8a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Dmolar\"\>", "\[Rule]", 
   TemplateBox[{"0.041271914003794916`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.831189353405702*^9, 3.8311894887836227`*^9, 
  3.8311917209383717`*^9},
 CellLabel->"Out[21]=",
 CellID->758318031,ExpressionUUID->"e959ce05-a3f6-49f1-8232-f4a4037ba4e9"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Again, the calculated room temperature density is just slightly different \
from both the four-component and the pseudo-pure fluid representations above.\
\>", "Text",
 CellChangeTimes->{{3.831191742100794*^9, 3.8311918532521605`*^9}},
 CellID->76538233,ExpressionUUID->"1b00d81e-2265-46b8-90c2-88e1c637ae75"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Get Fluid Name Information", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.822982119480454*^9, 3.822982128461405*^9}},
 CellID->347120648,ExpressionUUID->"d44dd33c-ced6-4988-8fcf-0a9dc6c63e7b"],

Cell["\<\
The following three functions return fluid id information (Name, Long Name, \
and CASN) from the loaded fluids file.   \
\>", "Text",
 CellChangeTimes->{{3.8168492667978787`*^9, 3.816849386013626*^9}, 
   3.8179997867066865`*^9, {3.822593460690585*^9, 3.822593472259637*^9}, 
   3.822593629534955*^9},
 CellID->22646652,ExpressionUUID->"4a7d6571-98de-41e3-8975-589598cc04be"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"name", "[", 
     StyleBox["icomp", "TI"], "]"}], Cell[
    "Returns the short name of the component.", "TableText",ExpressionUUID->
     "e386b71f-a57d-495e-81e9-8d8069ce21c7"]},
   {
    RowBox[{"longname", "[", 
     StyleBox["icomp", "TI"], "]"}], Cell["\<\
Returns the long name description for the component, if it exists.\
\>", "TableText",ExpressionUUID->"005806df-f4a4-4f59-9bf0-326843f217dd"]},
   {
    RowBox[{"casn", "[", 
     StyleBox["icomp", "TI"], "]"}], Cell[
    "Returns the Chemical Abstracts Service number.", "TableText",
     ExpressionUUID->"aa08c0ad-7f61-406c-8295-4dba450f7cbb"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822593721492012*^9, 3.8225937559316816`*^9}, {
  3.8225938803638635`*^9, 3.822593944003645*^9}, {3.8225939803245015`*^9, 
  3.822593982620329*^9}, {3.8311924050896916`*^9, 3.8311924220006876`*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.25], {
      Scaled[0.75]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->26358768,ExpressionUUID->"694b57a7-d0be-4457-b85e-a5124de5cfba"],

Cell["Fluid ID information.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}},
 CellID->197256598,ExpressionUUID->"9cbbbac5-6641-435e-be54-def4d706d97e"],

Cell[TextData[{
 "For multi-component mixtures, the parameter ",
 Cell[BoxData[
  StyleBox["icomp", "TI"]], "InlineFormula",ExpressionUUID->
  "b53edbca-b602-4852-afc1-ff72aed3e8d5"],
 " specifies the component number to be returned.  For pure fluids, however, \
this parameter can simply be omitted as it will default to 1."
}], "Text",
 CellChangeTimes->{
  3.8225936434148417`*^9, {3.822593759986809*^9, 3.822593794418743*^9}, 
   3.822801164011756*^9},
 CellID->149164589,ExpressionUUID->"350e646f-d770-47f0-8768-a9a5ed5b4421"],

Cell[CellGroupData[{

Cell["Get the name information for the loaded fluids.", "MathCaption",
 CellChangeTimes->{{3.822593815796566*^9, 3.822593823916814*^9}, 
   3.8229821600359817`*^9},
 CellID->34664985,ExpressionUUID->"875c2cc4-1902-45c2-9146-b4d323041228"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"name", "[", "1", "]"}], ",", 
    RowBox[{"name", "[", "2", "]"}], ",", 
    RowBox[{"name", "[", "3", "]"}]}], "}"}], "//", "ToUpperCase"}]], "Input",
 CellChangeTimes->{{3.822593828111594*^9, 3.822593829390175*^9}, 
   3.822982167045203*^9, {3.822982202349803*^9, 3.8229822176768074`*^9}, {
   3.826259090144588*^9, 3.8262590942795606`*^9}},
 CellLabel->"In[9]:=",
 CellID->201708715,ExpressionUUID->"f3d0caae-9f16-4c27-8b25-52400c0cedf1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"NITROGEN\"\>", ",", "\<\"ARGON\"\>", ",", "\<\"OXYGEN\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.822593834962299*^9, 3.8226041044859962`*^9, 3.8229821747147217`*^9, 
   3.8229822189813185`*^9, {3.826259065883458*^9, 3.826259095640892*^9}, 
   3.8270430756686277`*^9, 3.828871162890239*^9},
 CellLabel->"Out[9]=",
 CellID->11222767,ExpressionUUID->"22b1e45f-7a34-43a9-8537-6ce0ed382300"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Use Mathematica's ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["Array",
    FontWeight->"Bold"],
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "f545aff6-ca12-43d0-985a-8a44e8498120"],
 " function to simplify this call."
}], "MathCaption",
 CellChangeTimes->{{3.831191899900422*^9, 3.8311919224511003`*^9}},
 CellID->248698509,ExpressionUUID->"c2e62788-2a40-4c0c-b4f3-90a679dbabd5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Array", "[", 
   RowBox[{"longname", ",", "ncomp"}], "]"}], "//", "ToUpperCase"}]], "Input",
 CellChangeTimes->{{3.8225938381926384`*^9, 3.82259384121258*^9}, 
   3.8229821821727705`*^9, {3.822982246454831*^9, 3.8229822758053026`*^9}, {
   3.8229823486135902`*^9, 3.8229823782443376`*^9}, {3.8262591012329407`*^9, 
   3.826259107206996*^9}},
 CellLabel->"In[10]:=",
 CellID->412622337,ExpressionUUID->"06164b17-3d28-4f0c-9dcc-6a126a36d79c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"NITROGEN\"\>", ",", "\<\"ARGON\"\>", ",", "\<\"OXYGEN\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8225938424073763`*^9, 3.8226041078440104`*^9, 3.8229821870876074`*^9, {
   3.8229822622914815`*^9, 3.822982279543335*^9}, {3.822982362219199*^9, 
   3.8229823803098187`*^9}, {3.8262590783740606`*^9, 3.8262591082402325`*^9}, 
   3.827043080064873*^9, 3.8288711661954026`*^9},
 CellLabel->"Out[10]=",
 CellID->637068473,ExpressionUUID->"a18076ff-0aad-4125-b220-a056c18ff8f2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Array", "[", 
  RowBox[{"casn", ",", "ncomp"}], "]"}]], "Input",
 CellChangeTimes->{{3.822593845840176*^9, 3.8225938476194444`*^9}, {
  3.8229823922768087`*^9, 3.8229824023887577`*^9}},
 CellLabel->"In[11]:=",
 CellID->901849200,ExpressionUUID->"37e959a2-5dff-44ec-a649-cc92d03b45db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"7727-37-9\"\>", ",", "\<\"7440-37-1\"\>", 
   ",", "\<\"7782-44-7\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.822593850171618*^9, 3.8226041113745675`*^9, 
  3.8229824035875235`*^9, 3.8262591126813293`*^9, 3.827043084444137*^9, 
  3.828871169421776*^9},
 CellLabel->"Out[11]=",
 CellID->140384622,ExpressionUUID->"24d10afb-db7d-48a3-b4c4-03433bdce262"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Get Fluid Numeric Constants", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8229825305090747`*^9, 3.8229825361968613`*^9}},
 CellID->419820630,ExpressionUUID->"4dd37886-220b-4f89-806b-9039a50cc08b"],

Cell[TextData[{
 "Several functions return the numeric constants of the loaded mixture \
components.  The values are returned from these functions, and other property \
functions, in a ruled ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d297ce42-af34-4f1c-927f-6d61ca468c1f"],
 ".  This is done to identify the values being return, especially when more \
than one value is returned from the same function.  Individual values can be \
extracted from the returned ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "a7569f8f-a6f0-4f7b-85ca-8da0a6763002"],
 " by using standard ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d7ae23eb-d36c-41cb-bb63-5c4f54e3f6e4"],
 " indexing to extract the second column of each row pair to a variable or a ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "969a3fee-19bb-4a24-9606-ff303af4293a"],
 " of variables as demonstrated below. "
}], "Text",
 CellChangeTimes->{{3.8168492667978787`*^9, 3.816849386013626*^9}, 
   3.8179997867066865`*^9, {3.822593460690585*^9, 3.822593472259637*^9}, 
   3.822593629534955*^9, {3.822598982839508*^9, 3.8225990563618293`*^9}, {
   3.8225999774766903`*^9, 3.8226001513735666`*^9}, {3.822604779245184*^9, 
   3.822604817149832*^9}, {3.8230387157383947`*^9, 3.8230387188331165`*^9}, {
   3.829021722739381*^9, 3.8290217241875305`*^9}, {3.8311919505662293`*^9, 
   3.831191953402692*^9}},
 CellID->779510363,ExpressionUUID->"4f0db87a-af5e-44cb-a868-557713c98904"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"info", "[", 
     StyleBox["icomp", "TI"], "]"}], Cell[
    "Returns the numeric constants for the  component.", "TableText",
     ExpressionUUID->"d903e5c7-cc29-4c10-9f5f-4db102dfa975"]},
   {
    RowBox[{"wmoli", "[", 
     StyleBox["icomp", "TI"], "]"}], Cell["\<\
Returns the molar mass (molecular weight) for a single component.\
\>", "TableText",ExpressionUUID->"3529ae82-c0d2-43ee-ab38-02b195f9373c"]},
   {
    RowBox[{"wmol", "[", 
     StyleBox["z", "TI"], "]"}], 
    RowBox[{"Returns", " ", "the", " ", "molar", " ", "mass", " ", 
     RowBox[{"(", 
      RowBox[{"molecular", " ", "weight"}], ")"}], " ", "for", " ", "a", " ", 
     RowBox[{"mixture", "."}]}]},
   {
    RowBox[{"critp", "[", 
     StyleBox["z", "TI"], "]"}], 
    RowBox[{
    "Return", " ", "the", " ", "critical", " ", "point", " ", "values", " ", 
     "at", " ", "specific", " ", "mixture", " ", 
     RowBox[{"composition", "."}]}]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822593721492012*^9, 3.8225937559316816`*^9}, {
  3.8225938803638635`*^9, 3.822593944003645*^9}, {3.8225939803245015`*^9, 
  3.822593982620329*^9}, {3.8225991145188723`*^9, 3.8225991364950924`*^9}, {
  3.822599426758724*^9, 3.8225994841711345`*^9}, {3.8225999044859467`*^9, 
  3.822599963190899*^9}, {3.8226020619958153`*^9, 3.8226020626839743`*^9}, {
  3.82305468463675*^9, 3.823054687834176*^9}, {3.823054720233517*^9, 
  3.8230547928722305`*^9}, {3.825920168641308*^9, 3.825920168671255*^9}, {
  3.825934212665599*^9, 3.825934267705427*^9}, {3.8311923771294155`*^9, 
  3.8311923959242067`*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.25], {
      Scaled[0.75]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->512486044,ExpressionUUID->"492ba6c3-ffe7-40ab-b08c-32a909a74c56"],

Cell["Fluid Numeric information.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.825920055103883*^9, 3.8259200573837895`*^9}},
 CellID->357994911,ExpressionUUID->"cc29f956-333f-4d1c-9f70-eea6644e38b2"],

Cell[TextData[{
 "For multi-component mixtures, the parameter ",
 Cell[BoxData[
  StyleBox["icomp", "TI"]], "InlineFormula",ExpressionUUID->
  "2085408d-9659-44c8-b717-92bfb099334d"],
 " specifies the component number for the constants to be returned. "
}], "Text",
 CellChangeTimes->{
  3.8225936434148417`*^9, {3.822593759986809*^9, 3.822593794418743*^9}, {
   3.8225990675658903`*^9, 3.8225990924020305`*^9}, {3.823054829427456*^9, 
   3.823054864146596*^9}},
 CellID->166758029,ExpressionUUID->"f8dd8b18-e13c-4cd1-93df-b9d9a93fa6f6"],

Cell[CellGroupData[{

Cell["Optionally set up convenience indices for the components", "MathCaption",
 CellChangeTimes->{{3.8230556037325196`*^9, 3.8230556139073052`*^9}, {
  3.8270431108684835`*^9, 3.8270431132610865`*^9}},
 CellID->491525495,ExpressionUUID->"35bee085-dec3-4c70-a112-aa768ee5abcf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["iN", "2"], ",", "iAr", ",", 
     SubscriptBox["iO", "2"]}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.823055619672887*^9, 3.823055693059597*^9}},
 CellLabel->"In[23]:=",
 CellID->567335648,ExpressionUUID->"9175c296-f8cd-4a1c-a774-b442824496b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Get the numeric constants for the individual components", "MathCaption",
 CellChangeTimes->{{3.8230548917637525`*^9, 3.82305490694113*^9}, {
  3.823055504754258*^9, 3.8230555098426466`*^9}},
 CellID->65680357,ExpressionUUID->"4e442ca0-8fd0-47ef-ac4c-887487b6032e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"info", "[", 
  SubscriptBox["iN", "2"], "]"}]], "Input",
 CellChangeTimes->{{3.823055517616854*^9, 3.823055523970858*^9}, {
  3.823055671738654*^9, 3.823055701034299*^9}},
 CellLabel->"In[13]:=",
 CellID->226840327,ExpressionUUID->"f8403b7a-64bf-47b1-a968-78d09a798063"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"wmm\"\>", "\[Rule]", 
    TemplateBox[{"28.01348`", 
      RowBox[{
       "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"kmol\""}], "kilograms per kilomole", 
      FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Ttriple\"\>", "\[Rule]", 
    TemplateBox[{"63.151`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tnbpt\"\>", "\[Rule]", 
    TemplateBox[{"77.355`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tcrit\"\>", "\[Rule]", 
    TemplateBox[{"126.192`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Pcrit\"\>", "\[Rule]", 
    TemplateBox[{"3395.8`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dcrit\"\>", "\[Rule]", 
    TemplateBox[{"11.1839`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Zcrit\"\>", "\[Rule]", "0.28938788470812865`"}], ",", 
   RowBox[{"\<\"acf\"\>", "\[Rule]", "0.0372`"}], ",", 
   RowBox[{"\<\"dip\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"D\"", "debyes", "\"Debyes\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Rgas\"\>", "\[Rule]", 
    TemplateBox[{"8.31451`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8230555493948565`*^9, 3.823055702156267*^9, 
  3.825832816395101*^9, 3.825933092909791*^9, 3.825933941000207*^9, 
  3.825934025189844*^9, 3.8270431195642605`*^9, 3.8288711807066126`*^9},
 CellLabel->"Out[13]=",
 CellID->325598844,ExpressionUUID->"1b077fef-55ba-49ac-8b56-d9e3cbf9c3b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"info", "[", "iAr", "]"}]], "Input",
 CellChangeTimes->{{3.823055554126233*^9, 3.823055556170767*^9}, {
  3.8230557093869257`*^9, 3.8230557105388756`*^9}},
 CellLabel->"In[14]:=",
 CellID->42575265,ExpressionUUID->"2f51b01f-d58a-4e9c-a460-5196a4de4759"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"wmm\"\>", "\[Rule]", 
    TemplateBox[{"39.948`", 
      RowBox[{
       "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"kmol\""}], "kilograms per kilomole", 
      FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Ttriple\"\>", "\[Rule]", 
    TemplateBox[{"83.8058`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tnbpt\"\>", "\[Rule]", 
    TemplateBox[{"87.302`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tcrit\"\>", "\[Rule]", 
    TemplateBox[{"150.687`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Pcrit\"\>", "\[Rule]", 
    TemplateBox[{"4863.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dcrit\"\>", "\[Rule]", 
    TemplateBox[{"13.40742965`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Zcrit\"\>", "\[Rule]", "0.28949848548500956`"}], ",", 
   RowBox[{"\<\"acf\"\>", "\[Rule]", 
    RowBox[{"-", "0.00219`"}]}], ",", 
   RowBox[{"\<\"dip\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"D\"", "debyes", "\"Debyes\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Rgas\"\>", "\[Rule]", 
    TemplateBox[{"8.31451`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.823055557472252*^9, 3.823055716071048*^9, 
  3.825832822679298*^9, 3.825933097731926*^9, 3.825934031923839*^9, 
  3.8270431244372044`*^9, 3.8288711841274586`*^9},
 CellLabel->"Out[14]=",
 CellID->180889145,ExpressionUUID->"708a5377-07d2-4a81-b543-38157252d139"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"info", "[", 
  SubscriptBox["iO", "2"], "]"}]], "Input",
 CellChangeTimes->{{3.823055558687003*^9, 3.823055560450317*^9}, {
  3.8230557253961363`*^9, 3.8230557293385897`*^9}},
 CellLabel->"In[15]:=",
 CellID->265246689,ExpressionUUID->"7a2b3527-d0b4-43a5-9f89-206c115a7724"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"wmm\"\>", "\[Rule]", 
    TemplateBox[{"31.9988`", 
      RowBox[{
       "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"kmol\""}], "kilograms per kilomole", 
      FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Ttriple\"\>", "\[Rule]", 
    TemplateBox[{"54.361`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tnbpt\"\>", "\[Rule]", 
    TemplateBox[{"90.1878`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tcrit\"\>", "\[Rule]", 
    TemplateBox[{"154.581`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Pcrit\"\>", "\[Rule]", 
    TemplateBox[{"5043.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dcrit\"\>", "\[Rule]", 
    TemplateBox[{"13.63`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Zcrit\"\>", "\[Rule]", "0.28787849238802954`"}], ",", 
   RowBox[{"\<\"acf\"\>", "\[Rule]", "0.0222`"}], ",", 
   RowBox[{"\<\"dip\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"D\"", "debyes", "\"Debyes\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Rgas\"\>", "\[Rule]", 
    TemplateBox[{"8.31434`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.823055561781727*^9, 3.8230557304685388`*^9, 
  3.825832827367762*^9, 3.8259331019805365`*^9, 3.8259340357645693`*^9, 
  3.827043128939165*^9, 3.828871187715865*^9},
 CellLabel->"Out[15]=",
 CellID->416802579,ExpressionUUID->"45bef6bc-5714-4c19-867f-a9b42272a6c3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Get the molecular weight of the individual components", "MathCaption",
 CellChangeTimes->{{3.8230558722294006`*^9, 3.823055886394512*^9}},
 CellID->64926290,ExpressionUUID->"c4c78d7a-bd99-4283-9377-0212b1f160b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"wmoli", "[", 
  SubscriptBox["iO", "2"], "]"}]], "Input",
 CellChangeTimes->{{3.823056077080456*^9, 3.823056082482008*^9}, {
  3.82305621061928*^9, 3.823056227970869*^9}, {3.8258328478829317`*^9, 
  3.825832853640544*^9}},
 CellLabel->"In[16]:=",
 CellID->757829423,ExpressionUUID->"d3a475f9-119f-44b1-8cba-543410730186"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"wmm\"\>", "\[Rule]", 
   TemplateBox[{"31.9988`", 
     RowBox[{
      "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
       "\"kmol\""}], "kilograms per kilomole", 
     FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8230560835910425`*^9, 3.823056160116359*^9, {3.8230562138067846`*^9, 
   3.8230562302667284`*^9}, 3.8230562905933723`*^9, {3.8258328338673844`*^9, 
   3.8258328581255226`*^9}, 3.8270431376259403`*^9},
 CellLabel->"Out[16]=",
 CellID->790227046,ExpressionUUID->"2bf1a6ab-a24e-45f7-b372-d61f4e5061be"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Array", "[", 
  RowBox[{"wmoli", ",", "ncomp"}], "]"}]], "Input",
 CellChangeTimes->{{3.8230558927853904`*^9, 3.8230559309652705`*^9}, 
   3.823056238066866*^9, {3.8230563144914517`*^9, 3.823056317386737*^9}},
 CellLabel->"In[16]:=",
 CellID->597807854,ExpressionUUID->"ed69d732-22ea-46fa-bc93-2fa294205e60"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"wmm\"\>", "\[Rule]", 
     TemplateBox[{"28.01348`", 
       RowBox[{
        "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"kmol\""}], "kilograms per kilomole", 
       FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
      "Quantity"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"wmm\"\>", "\[Rule]", 
     TemplateBox[{"39.948`", 
       RowBox[{
        "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"kmol\""}], "kilograms per kilomole", 
       FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
      "Quantity"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"wmm\"\>", "\[Rule]", 
     TemplateBox[{"31.9988`", 
       RowBox[{
        "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"kmol\""}], "kilograms per kilomole", 
       FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
      "Quantity"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8230559152413406`*^9, 3.8230559318968115`*^9}, 
   3.823056239381363*^9, 3.8230563222836113`*^9, 3.825832869919008*^9, 
   3.8262591344830365`*^9, 3.8270431418077855`*^9, 3.8288711919445596`*^9},
 CellLabel->"Out[16]=",
 CellID->25639691,ExpressionUUID->"b4b78695-bfa8-4a1f-b021-89c30c446621"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "To get the ",
 StyleBox["mixture",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " values, specialized functions must be employed.  All of these functions \
will require the mixture composition array as an input."
}], "Text",
 CellChangeTimes->{{3.8259341300415187`*^9, 3.8259341562255087`*^9}, {
  3.825934295935953*^9, 3.825934300608474*^9}, {3.8311919893236027`*^9, 
  3.8311920182352495`*^9}},
 CellID->37927974,ExpressionUUID->"4fe22893-84d3-4980-8cc1-4030dda03f01"],

Cell[CellGroupData[{

Cell["Get the composition-weighted, molecular weight of a mixture", \
"MathCaption",
 CellChangeTimes->{{3.823055992386985*^9, 3.823056030266698*^9}, {
  3.8230563850258217`*^9, 3.8230564157286735`*^9}},
 CellID->233936263,ExpressionUUID->"6df2264a-8384-4404-ab7b-595d01861654"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["molWt", "Air3"], "=", 
  RowBox[{
   RowBox[{"wmol", "[", 
    SubscriptBox["z", "Air3"], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.823057581910117*^9, 3.8230576076492615`*^9}, {
  3.823057701537166*^9, 3.823057701592989*^9}, {3.825833097489542*^9, 
  3.825833102825244*^9}},
 CellLabel->"In[17]:=",
 CellID->162122976,ExpressionUUID->"01cbd643-fd27-48b0-a184-0857d75de7b9"],

Cell[BoxData[
 TemplateBox[{"28.958600656`", 
   RowBox[{
    "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"kmol\""}],
    "kilograms per kilomole", 
   FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.823057601711157*^9, 3.823057608795209*^9}, 
   3.823057702568381*^9, 3.8258331239647226`*^9, 3.8262587907230244`*^9, 
   3.826258921808685*^9, 3.8262591447535872`*^9, 3.827043149522132*^9, 
   3.8288712141990604`*^9},
 CellLabel->"Out[17]=",
 CellID->74074630,ExpressionUUID->"9393bbe0-2112-4ad7-b267-2a2ecd96853e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculate the mixture critical point quantities.", "MathCaption",
 CellChangeTimes->{{3.831192046640273*^9, 3.831192061708967*^9}, {
  3.8311921423233786`*^9, 3.8311921437146573`*^9}},
 CellID->321473136,ExpressionUUID->"4918239f-0ac6-4ef3-a985-6d4647d1a6d2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"critp", "[", 
  SubscriptBox["z", "Air3"], "]"}]], "Input",
 CellChangeTimes->{{3.8311921497923737`*^9, 3.8311921604757977`*^9}, {
  3.8311922197402835`*^9, 3.831192226123205*^9}},
 CellLabel->"In[22]:=",
 CellID->233993686,ExpressionUUID->"3e3f28a1-729d-4b4e-8277-2d6882afde19"],

Cell[BoxData[
 TemplateBox[{
  "critp", "refprop", 
   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"[CRTHMX warning -319] These values for the \
critical point come from the predefined *.MIX file. If new pure fluid or \
mixture models are used other than those from the installed program, the \
values will not be consistent with those models.                 \
\\\\\\\"\\\"}]\\)\"", 2, 22, 2, 33621698400772834063, "Local", 
   "RefpropLink`critp"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.831192231087926*^9},
 CellLabel->"During evaluation of In[22]:=",
 CellID->662801370,ExpressionUUID->"cdc4a290-bad1-434d-9b2d-d141a6a07b91"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"132.83069752889762`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{
     "3852.042257237323`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(D\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"11.900166877898968`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8311922311108646`*^9},
 CellLabel->"Out[22]=",
 CellID->168202018,ExpressionUUID->"e1b88af4-bc51-48f4-a644-9c5fc2e7f35c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Mixture Equation Limits", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.82305710368225*^9, 3.8230571116738462`*^9}},
 CellID->7569461,ExpressionUUID->"61619d37-1e9a-4a3d-9221-a13d655a6fad"],

Cell["\<\
Each fluid's equations of state (EOS) was generated within a specific range \
of validity for the independent variables of temperature, pressure, and \
density.  It is a best practice to restrict calculations between these limits.\
\>", "Text",
 CellChangeTimes->{{3.822811729255211*^9, 3.822811857285797*^9}, 
   3.8228119246061*^9, {3.831192302636558*^9, 3.831192326178612*^9}},
 CellID->594464066,ExpressionUUID->"58057b24-79a1-4d55-8515-8aab51ecba69"],

Cell["\<\
Attempting calculations below the minimum temperature and/or above the \
maximum density is not recommended. These will often correspond to a \
physically unreasonable state; also many equations of state do not \
extrapolate reliably to lower Temperatures and higher Densities.\
\>", "Text",
 CellChangeTimes->{{3.8228120482234383`*^9, 3.8228120737262278`*^9}, {
  3.830597313649657*^9, 3.830597322913873*^9}},
 CellID->92632341,ExpressionUUID->"d54212ef-63d7-4226-b863-501d780bed6b"],

Cell[TextData[{
 "Most equations of state, however, may be extrapolated to higher \
Temperatures and Pressures.  Temperatures can usually safely be extrapolated \
to Temperatures up to 1.5 * ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["T", "TI"], 
   StyleBox["max", "TI"]]], "InlineFormula",ExpressionUUID->
  "a7a51f3e-c013-4dab-9763-4e84f3a31509"],
 " and pressures up to 2 * ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["P", "TI"], 
   StyleBox["max", "TI"]]], "InlineFormula",ExpressionUUID->
  "ffd4d78d-8896-4980-adbf-a5dc3f28d732"],
 ".  Extrapolation beyond these extended limits is not recommended."
}], "Text",
 CellChangeTimes->{{3.822812115333931*^9, 3.822812176133341*^9}, {
  3.822812213463463*^9, 3.822812246093223*^9}, {3.822812281589281*^9, 
  3.8228123111651697`*^9}, {3.830597333065713*^9, 3.830597418033431*^9}},
 CellID->395169496,ExpressionUUID->"e4ffd94f-d4de-424e-b2c9-b111690c9970"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"limits", "[", 
     RowBox[{
      StyleBox["hType", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell["\<\
Returns limits of a property model as a function of composition.\
\>", "TableText",ExpressionUUID->"feea6001-d6d3-482f-8d2a-98cc5521b97d"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822593721492012*^9, 3.8225937559316816`*^9}, {
   3.8225938803638635`*^9, 3.822593944003645*^9}, {3.8225939803245015`*^9, 
   3.822593982620329*^9}, {3.8225991145188723`*^9, 3.8225991364950924`*^9}, {
   3.822599426758724*^9, 3.8225994841711345`*^9}, {3.8225999044859467`*^9, 
   3.822599963190899*^9}, {3.8226020619958153`*^9, 3.8226020626839743`*^9}, {
   3.823057007288061*^9, 3.823057017927617*^9}, {3.8230572144180374`*^9, 
   3.82305724197832*^9}, 3.831192438335002*^9},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.25], {
      Scaled[0.75]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->184672383,ExpressionUUID->"7460456b-7c2d-4455-a239-787b7ee32178"],

Cell["Fluid equation Limits.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.829109221278238*^9, 
  3.829109223950095*^9}},
 CellID->191781415,ExpressionUUID->"e6eb19b8-99a1-4047-9d84-1428b69b8c3d"],

Cell["\<\
For the property model limits of a mixture, a simple mole fraction weighting \
in reduced variables is used.\
\>", "Text",
 CellChangeTimes->{{3.8230565304664326`*^9, 3.8230565690093393`*^9}},
 CellID->164317926,ExpressionUUID->"4c9ec733-196a-4486-883a-c83547e1cc46"],

Cell[CellGroupData[{

Cell["Get the EOS fluid equation validity limits for the mixture", \
"MathCaption",
 CellChangeTimes->{{3.823056451314517*^9, 3.8230564694819317`*^9}, {
  3.823056619384604*^9, 3.823056625272823*^9}},
 CellID->302727579,ExpressionUUID->"f9d01ac1-e976-4701-9de2-f8f2abe9e650"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"limits", "[", 
  SubscriptBox["z", "Air3"], "]"}]], "Input",
 CellChangeTimes->{{3.823056636599556*^9, 3.823056658322426*^9}, 
   3.8230572672657175`*^9, 3.8262588098777876`*^9},
 CellLabel->"In[18]:=",
 CellID->244604783,ExpressionUUID->"9472f7b5-6cda-4975-8548-dbe2fa658c08"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Tmin\"\>", "\[Rule]", 
    TemplateBox[{"55.70590289300708`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tmax\"\>", "\[Rule]", 
    TemplateBox[{"1993.6943666478212`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dmax\"\>", "\[Rule]", 
    TemplateBox[{"51.47570452071228`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Pmax\"\>", "\[Rule]", 
    TemplateBox[{"1.7450272`*^6", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8230566701667447`*^9, 3.8230572689372125`*^9, {3.826258801719599*^9, 
   3.826258811833556*^9}, 3.826259153169074*^9, 3.8270431715143576`*^9, 
   3.828871261383912*^9},
 CellLabel->"Out[18]=",
 CellID->114087092,ExpressionUUID->"8fe0ed11-c4cb-43e5-b78a-f564e3b87a3f"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "By default, these are the limits on the Equation of State as specified when \
",
 Cell[BoxData[
  StyleBox["hType", "TI"]], "InlineFormula",ExpressionUUID->
  "75280254-c71e-43dc-ac1e-040c8537395a"],
 " = \"EOS\" (default).  The limits on the viscosity equation (",
 Cell[BoxData[
  StyleBox["hType", "TI"]], "InlineFormula",ExpressionUUID->
  "d787c8a9-1a5f-4a6e-9a3b-84a5cf867dc1"],
 " = \"ETA\"), thermal conductivity equation (",
 Cell[BoxData[
  StyleBox["hType", "TI"]], "InlineFormula",ExpressionUUID->
  "2816d3a6-9fbf-4c4d-a294-9637d25a8ede"],
 " = \"TCX\"), and surface tension equation (",
 Cell[BoxData[
  StyleBox["hType", "TI"]], "InlineFormula",ExpressionUUID->
  "2b43a9a8-451e-4fd9-8c77-7a65e2c2bc8e"],
 " = \"STN\") can also be requested."
}], "Text",
 CellChangeTimes->{{3.8226015638891015`*^9, 3.8226015716523376`*^9}},
 CellID->26942572,ExpressionUUID->"3bf180f3-16db-4f5a-9a90-0ff5e5d3c3fd"],

Cell[CellGroupData[{

Cell[TextData[{
 "Get the thermal conductivity equation limits by specifying the ",
 Cell[BoxData[
  StyleBox["hType", "TI"]], "InlineFormula",ExpressionUUID->
  "bf6b5498-2548-4cb2-981e-c9223ef854e7"],
 " parameter."
}], "MathCaption",
 CellChangeTimes->{{3.822601586046811*^9, 3.8226016144119678`*^9}, {
  3.822601734171646*^9, 3.8226017508071575`*^9}},
 CellID->157835903,ExpressionUUID->"33399e68-f994-4003-8783-ecaa61591ac7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"limits", "[", 
  RowBox[{"\"\<TCX\>\"", ",", 
   SubscriptBox["z", "Air3"]}], "]"}]], "Input",
 CellChangeTimes->{{3.822601619707803*^9, 3.82260162882043*^9}, {
  3.8230572918170443`*^9, 3.8230572969852266`*^9}, {3.8262588193046083`*^9, 
  3.826258823015695*^9}},
 CellLabel->"In[19]:=",
 CellID->321034895,ExpressionUUID->"a2537911-499f-4d03-b85d-55f995e53704"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Tmin\"\>", "\[Rule]", 
    TemplateBox[{"46.06073085513635`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tmax\"\>", "\[Rule]", 
    TemplateBox[{"1993.6943666478212`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dmax\"\>", "\[Rule]", 
    TemplateBox[{"51.47570452071228`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Pmax\"\>", "\[Rule]", 
    TemplateBox[{"1.7450272`*^6", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.822601631025504*^9, 3.8226041988226757`*^9, 
  3.823057298284717*^9, 3.8262588234953747`*^9, 3.8262591573409185`*^9, 
  3.8270431782184334`*^9, 3.8288713534338207`*^9},
 CellLabel->"Out[19]=",
 CellID->171060220,ExpressionUUID->"7a62e2c9-8ba3-4fb0-a94c-993fb7ee035d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Single Phase Properties", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8230574184712534`*^9, 3.8230574247773867`*^9}},
 CellID->81573596,ExpressionUUID->"a77687c8-044a-48b5-a639-bb4fc4391b9b"],

Cell[TextData[{
 "These functions should only be called in the single phase region.  Calling \
them at a state point in the two-phase region will result in metastable \
values or complete nonsense. These functions again return a ruled ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "01181af6-215e-4cb3-a11a-14126655e2cc"],
 " to identify the value being returned, even if there is only one value \
being returned."
}], "Text",
 CellChangeTimes->{{3.8168492667978787`*^9, 3.816849386013626*^9}, 
   3.8179997867066865`*^9, {3.822593460690585*^9, 3.822593472259637*^9}, 
   3.822593629534955*^9, {3.822598982839508*^9, 3.8225990563618293`*^9}, {
   3.8225999774766903`*^9, 3.8226001513735666`*^9}, {3.82260181892393*^9, 
   3.822601896188301*^9}, {3.8226020409391065`*^9, 3.8226020451169634`*^9}, {
   3.8226047123850164`*^9, 3.822604766211069*^9}},
 CellID->223759463,ExpressionUUID->"4fc47434-c232-4f96-b6bd-194b3749fb6c"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"tprho", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["p", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell["\<\
Iterates to find the density at a temperature-pressure state point\
\>", "TableText",ExpressionUUID->"1f199243-4484-4ec7-8163-41a7fef0dd28"]},
   {
    RowBox[{"therm", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["d", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell[
    "Returns all thermodynamic properties", "TableText",ExpressionUUID->
     "750230dd-ff98-4e1e-8810-ea1bbc501a91"]},
   {
    RowBox[{"press", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["d", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell[
    "Simpler version of therm that returns only pressure", "TableText",
     ExpressionUUID->"029ac45c-7550-45c6-a5fd-1a7082c87ce7"]},
   {
    RowBox[{"enthal", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["d", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell[
    "Simpler version of therm that returns only enthalpy", "TableText",
     ExpressionUUID->"de624955-5c69-40d7-b7f3-5762449f6289"]},
   {
    RowBox[{"entro", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["d", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell[
    "Simpler version of therm that returns only entropy", "TableText",
     ExpressionUUID->"cfdeaced-72b1-4f01-ad57-2450498d3252"]},
   {
    RowBox[{"cvcp", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["d", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell[
    "Simpler version of therm that returns only Cv and Cp", "TableText",
     ExpressionUUID->"d0e815d1-60d1-474e-846b-3828317fa356"]}
  }]], "DefinitionBox",
 CellChangeTimes->{{3.822593721492012*^9, 3.8225937559316816`*^9}, {
  3.8225938803638635`*^9, 3.822593944003645*^9}, {3.8225939803245015`*^9, 
  3.822593982620329*^9}, {3.8225991145188723`*^9, 3.8225991364950924`*^9}, {
  3.822599426758724*^9, 3.8225994841711345`*^9}, {3.8225999044859467`*^9, 
  3.822599963190899*^9}, {3.8226019261082444`*^9, 3.822601979019723*^9}, {
  3.8226020146205006`*^9, 3.822602034788557*^9}, {3.8226020758048515`*^9, 
  3.8226020875085773`*^9}, {3.822602194916264*^9, 3.8226022231468697`*^9}, {
  3.822602349236595*^9, 3.8226024929003725`*^9}, {3.8311924913262596`*^9, 
  3.831192535009468*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.25], {
      Scaled[0.75]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->31537542,ExpressionUUID->"5fa20bdb-ef41-4276-b468-8c40a75c5397"],

Cell["Fluid single-phase property functions.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}},
 CellID->41284769,ExpressionUUID->"0f803570-7824-4e79-917d-576c3978a0f6"],

Cell[TextData[{
 "For multi-component mixtures, the parameter ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "f91cf732-6c1c-4a44-87a4-edf1ed3b636b"],
 " specifies the molar composition of the mixture.  In the single phase, \
vapor or liquid, this is the \"bulk\" composition of the mixture."
}], "Text",
 CellChangeTimes->{
  3.8225936434148417`*^9, {3.822593759986809*^9, 3.822593794418743*^9}, {
   3.8225990675658903`*^9, 3.8225990924020305`*^9}, {3.8226020956208773`*^9, 
   3.82260217746697*^9}, {3.8230574843690257`*^9, 3.823057506584577*^9}},
 CellID->22445341,ExpressionUUID->"342cb434-599c-4f43-a309-58bafda1b237"],

Cell[CellGroupData[{

Cell["\<\
Set a temperature and pressure and call tprho to get molar density.\
\>", "MathCaption",
 CellChangeTimes->{{3.8226025543669925`*^9, 3.8226026070510836`*^9}},
 CellID->180532038,ExpressionUUID->"24e71f9b-1e6e-4082-b0a5-c33baadf687e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"22", "\[Degree]C"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"1", "atm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"tprho", "[", 
  RowBox[{"T", ",", "P", ",", 
   SubscriptBox["z", "Air3"]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8226026133143063`*^9, 3.8226026529802074`*^9}, {
   3.8230575143697586`*^9, 3.823057530738002*^9}, 3.8262588581676683`*^9},
 CellLabel->"In[21]:=",
 CellID->407265150,ExpressionUUID->"b6752d14-fba5-44f2-9aa8-4c62b451be59"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Dmolar\"\>", "\[Rule]", 
   TemplateBox[{"0.04130307518257955`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.822602661502426*^9, 3.8226042048196077`*^9, 
  3.823057534502905*^9, 3.826258859357513*^9, 3.82625917134949*^9, 
  3.82625930190638*^9, 3.8270432328802767`*^9},
 CellLabel->"Out[23]=",
 CellID->71957182,ExpressionUUID->"b3acb3b6-fc3f-4f41-b3c4-a1fd17848ca8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
More usefully, extract the value portion of the result to a variable using \
List indexing.\
\>", "MathCaption",
 CellChangeTimes->{{3.822602749413277*^9, 3.8226027596718388`*^9}, {
  3.8226033495222955`*^9, 3.822603355346716*^9}, {3.8311925535089955`*^9, 
  3.831192569587019*^9}},
 CellID->8437832,ExpressionUUID->"45c1ee06-0bea-42f8-bd78-90ce5ae97b15"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["D", "molar"], "=", 
  RowBox[{
   RowBox[{"tprho", "[", 
    RowBox[{"T", ",", "P", ",", 
     SubscriptBox["z", "Air3"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822603308616704*^9, 3.822603335387101*^9}, {
   3.8230576493078356`*^9, 3.8230576520106344`*^9}, 3.8262588668155737`*^9},
 CellLabel->"In[24]:=",
 CellID->551555729,ExpressionUUID->"6c9c3bef-e790-4b4b-bde4-25cf441d278c"],

Cell[BoxData[
 TemplateBox[{"0.04130307518257955`", 
   RowBox[{
    "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "moles per liter", 
   FractionBox["\"Moles\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8226033666225405`*^9, 3.8226042089146767`*^9, 
  3.8230576617964325`*^9, 3.826258867880726*^9, 3.82625917534381*^9, 
  3.8270432570905437`*^9},
 CellLabel->"Out[24]=",
 CellID->97973703,ExpressionUUID->"9bfb3412-c43f-44f4-8946-c76888f836a0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Molar Volume (should be close to 22.4 L for 1 mole of an ideal gas) \
\>", "MathCaption",
 CellChangeTimes->{{3.823057991418544*^9, 3.8230580242497187`*^9}},
 CellID->487281549,ExpressionUUID->"35ca56f4-f508-4139-9587-1c648ebaa5d1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["V", "molar"], "=", 
  RowBox[{"1", "/", 
   SubscriptBox["D", "molar"]}]}]], "Input",
 CellChangeTimes->{{3.823058028703806*^9, 3.8230580423762646`*^9}},
 CellLabel->"In[25]:=",
 CellID->285754145,ExpressionUUID->"60ed5766-b616-4b8e-88c0-c63d214684df"],

Cell[BoxData[
 TemplateBox[{"24.21127229823728`", 
   RowBox[{
    "\"L\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}], 
   "liters per mole", 
   FractionBox["\"Liters\"", "\"Moles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.823058047997202*^9, 3.8262588724434977`*^9, 
  3.8262591848354044`*^9, 3.827043262915939*^9},
 CellLabel->"Out[25]=",
 CellID->227239537,ExpressionUUID->"86cd6d6a-fccc-4ca4-8b75-356af1339d6a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Use the molecular weight that was retrieved previously to convert to mass \
density.\
\>", "MathCaption",
 CellChangeTimes->{{3.822603382179944*^9, 3.822603408851577*^9}, {
  3.831192600106388*^9, 3.831192601402891*^9}},
 CellID->605696421,ExpressionUUID->"5bc6437d-93db-4991-91cc-1fd845cc971d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["D", "mass"], "=", 
  RowBox[{
   SubscriptBox["D", "molar"], "*", 
   SubscriptBox["molWt", "Air3"]}]}]], "Input",
 CellChangeTimes->{{3.8226034261293955`*^9, 3.8226034694505243`*^9}, {
   3.8230577312436824`*^9, 3.8230577325691643`*^9}, 3.826259200103611*^9},
 CellLabel->"In[26]:=",
 CellID->59795828,ExpressionUUID->"c0efd010-9204-414a-a58b-e2af4d5db59c"],

Cell[BoxData[
 TemplateBox[{"0.0011960792600770656`", 
   RowBox[{
    "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "kilograms per liter", 
   FractionBox["\"Kilograms\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8226034820448084`*^9, 3.822604213016677*^9, 3.8230576762776995`*^9, {
   3.8230577091447906`*^9, 3.8230577338736467`*^9}, 3.826258905719524*^9, 
   3.8262592022837505`*^9, 3.827043279613325*^9},
 CellLabel->"Out[26]=",
 CellID->327865437,ExpressionUUID->"ebe26d6f-ee18-454e-9a0b-ecafab412f16"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Now that temperature and molar density are know, the other thermodynamic \
properties can be evaluated at this state point.  They can all be retrieved \
at once or individually, depending on the function used.\
\>", "Text",
 CellChangeTimes->{{3.8226036221082077`*^9, 3.822603683947809*^9}, {
  3.8230580672955847`*^9, 3.8230580681123996`*^9}, {3.8311926232733946`*^9, 
  3.8311926504108353`*^9}},
 CellID->279852391,ExpressionUUID->"054f80b2-48d0-4fcf-a2ad-3e028de7c7a0"],

Cell[CellGroupData[{

Cell["Retrieve all of the thermodynamic properties at once.", "MathCaption",
 CellChangeTimes->{{3.8226036991242137`*^9, 3.8226037132523966`*^9}},
 CellID->181133623,ExpressionUUID->"952c332d-79f9-4137-ae35-f9218e03f0f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"therm", "[", 
  RowBox[{"T", ",", 
   SubscriptBox["D", "molar"]}], "]"}]], "Input",
 CellChangeTimes->{{3.8226037355019016`*^9, 3.8226037499542627`*^9}},
 CellLabel->"In[27]:=",
 CellID->164488048,ExpressionUUID->"fb8171ef-1c4e-45b1-b81f-ad2fdf849201"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"P\"\>", "\[Rule]", 
    TemplateBox[{
     "101.33610924702202`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"U\"\>", "\[Rule]", 
    TemplateBox[{"6122.6514045661825`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    TemplateBox[{"8576.127539189754`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    TemplateBox[{"191.18441119750102`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Cv\"\>", "\[Rule]", 
    TemplateBox[{"20.816760557220654`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Cp\"\>", "\[Rule]", 
    TemplateBox[{"29.171598356865932`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    TemplateBox[{"350.2939510078828`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"hjt\"\>", "\[Rule]", 
    TemplateBox[{"0.002196362259807982`", 
      RowBox[{
       "\"K\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"kPa\""}], "kelvins per kilopascal", 
      FractionBox["\"Kelvins\"", "\"Kilopascals\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.822603751822262*^9, 3.8226042209554453`*^9, 
  3.826259218693873*^9, 3.8270432882791452`*^9},
 CellLabel->"Out[27]=",
 CellID->558021486,ExpressionUUID->"5f57c691-d04d-4f88-91d5-5d1629f00953"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Repeat, but capture all results to individual variables using List indexing.\
\>", "MathCaption",
 CellChangeTimes->{{3.8226042530755596`*^9, 3.822604291301316*^9}},
 CellID->25977314,ExpressionUUID->"e6e7db3a-a1bc-4d9d-a67b-0f1426297ce1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
   "P", ",", "U", ",", "H", ",", "S", ",", "Cv", ",", "Cp", ",", "w", ",", 
    "hjt"}], "}"}], "=", 
  RowBox[{
   RowBox[{"therm", "[", 
    RowBox[{"T", ",", 
     SubscriptBox["D", "molar"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822604318385845*^9, 3.8226044124502788`*^9}},
 CellLabel->"In[28]:=",
 CellID->631796029,ExpressionUUID->"5e97971f-dc46-4b11-a546-30dfe7795943"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "101.33610924702202`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{"6122.6514045661825`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"], ",", 
   TemplateBox[{"8576.127539189754`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"], ",", 
   TemplateBox[{"191.18441119750102`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"20.816760557220654`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"29.171598356865932`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"350.2939510078828`", 
     RowBox[{
      "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
     "meters per second", 
     FractionBox["\"Meters\"", "\"Seconds\""]},
    "Quantity"], ",", 
   TemplateBox[{"0.002196362259807982`", 
     RowBox[{
      "\"K\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"kPa\""}],
      "kelvins per kilopascal", 
     FractionBox["\"Kelvins\"", "\"Kilopascals\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8226044225033627`*^9, 3.8262593957046146`*^9, 
  3.8270433018867393`*^9},
 CellLabel->"Out[28]=",
 CellID->75837025,ExpressionUUID->"aaefda74-a803-4409-bb6f-a16a108e71a2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Alternatively, use individual functions to calculate just Enthalpy and \
Entropy.\
\>", "MathCaption",
 CellChangeTimes->{{3.8226044548269386`*^9, 3.8226044790990295`*^9}, {
  3.827043312436562*^9, 3.8270433224448013`*^9}},
 CellID->249882416,ExpressionUUID->"ee695c24-9518-4889-b6e0-fb28a11de0e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"enthal", "[", 
  RowBox[{"T", ",", 
   SubscriptBox["D", "molar"]}], "]"}]], "Input",
 CellChangeTimes->{{3.8226044856155834`*^9, 3.8226044966261053`*^9}},
 CellLabel->"In[29]:=",
 CellID->274906393,ExpressionUUID->"aa707fda-d40a-416a-8889-2c566d10cec3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", "\[Rule]", 
   TemplateBox[{"8576.127539189754`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8226044988571806`*^9, 3.826259404504055*^9, 
  3.8270433310437794`*^9},
 CellLabel->"Out[29]=",
 CellID->370573076,ExpressionUUID->"6f828949-270f-48c8-8285-8a315888a769"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"entro", "[", 
  RowBox[{"T", ",", 
   SubscriptBox["D", "molar"]}], "]"}]], "Input",
 CellChangeTimes->{{3.8226045012686877`*^9, 3.822604510273631*^9}},
 CellLabel->"In[30]:=",
 CellID->262375583,ExpressionUUID->"5963bef2-934f-44b0-bf95-d877929b9d52"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"S\"\>", "\[Rule]", 
   TemplateBox[{"191.18441119750102`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.822604511345767*^9, 3.8262594084066195`*^9, 
  3.8270433480124426`*^9},
 CellLabel->"Out[30]=",
 CellID->41557483,ExpressionUUID->"8965e3b4-480e-40b3-ad2d-09999708d5e5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Saturation Properties", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8231518611168804`*^9, 3.8231518664366612`*^9}},
 CellID->499279020,ExpressionUUID->"c76de0b5-a116-458e-b867-3a7bd6c3142c"],

Cell[TextData[{
 "Property functions are available to evaluate the saturated liquid (bubble \
point) or saturated vapor (dew point) states along the boundaries of the two \
phase region.  These functions calculate the vapor/liquid densities at a \
given saturation pressure or temperature.  From there, the single phase \
functions can be used to calculate the other saturated state properties as a \
function of saturation temperature and the calculated molar densities in each \
phase. These functions again return a ruled ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "640709bf-6473-4f4a-8831-35f67bdf40a3"],
 " to identify the value being returned, even if there is only one value \
being returned. "
}], "Text",
 CellChangeTimes->{{3.8168492667978787`*^9, 3.816849386013626*^9}, 
   3.8179997867066865`*^9, {3.822593460690585*^9, 3.822593472259637*^9}, 
   3.822593629534955*^9, {3.822598982839508*^9, 3.8225990563618293`*^9}, {
   3.8225999774766903`*^9, 3.8226001513735666`*^9}, {3.82260181892393*^9, 
   3.822601896188301*^9}, {3.8226020409391065`*^9, 3.8226020451169634`*^9}, 
   3.822604849730685*^9, {3.8226051394487777`*^9, 3.82260515201713*^9}, {
   3.8226079297830935`*^9, 3.8226080916222224`*^9}, {3.8247437232282305`*^9, 
   3.8247437726042285`*^9}, {3.831192679019308*^9, 3.8311926958333116`*^9}},
 CellID->67387048,ExpressionUUID->"20316501-45ba-4577-a2ae-42a1b5f7e4ed"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"satspln", "[", 
     StyleBox["z", "TI"], "]"}], Cell["\<\
Calculate spline curves through the mixture saturation curves, as well as \
calculating the cricondentherm and cricondenbar points\
\>", "TableText",ExpressionUUID->"d3b8dd7c-772b-48fa-a74c-5d4c66f1072f"]},
   {
    RowBox[{"critp", "[", 
     StyleBox["z", "TI"], "]"}], Cell["\<\
Returns the temperature, pressure, and molar density at the critical point\
\>", "TableText",ExpressionUUID->"d1869229-0656-4804-ab2e-7a899542635d"]},
   {
    RowBox[{"maxt", "[", 
     StyleBox["z", "TI"], "]"}], Cell["\<\
Return the temperature, pressure, and molar density at the cricondentherm.\
\>", "TableText",ExpressionUUID->"251304ab-4ac1-41ec-8401-86003eacad37"]},
   {
    RowBox[{"maxp", "[", 
     StyleBox["z", "TI"], "]"}], 
    RowBox[{
     RowBox[{"REturn", " ", "the", " ", "temperature"}], ",", " ", "pressure",
      ",", " ", 
     RowBox[{"and", " ", "molar", " ", "density", " ", "at", " ", "the", " ", 
      RowBox[{"cricondenbar", "."}]}]}]},
   {
    RowBox[{"satp", "[", 
     RowBox[{
      StyleBox["p", "TI"], ",", 
      StyleBox["z", "TI"], ",", 
      StyleBox["kph", "TI"]}], "]"}], Cell["\<\
Given a pressure, returns the saturation temperature as well as the saturated \
liquid and saturated vapor molar densities.\
\>", "TableText",ExpressionUUID->"b7ae8495-cd61-4f07-9f45-d2c143af40d2"]},
   {
    RowBox[{"satt", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["z", "TI"], ",", 
      StyleBox["kph", "TI"]}], "]"}], Cell["\<\
Given a temperature, returns the saturation pressure as well as the saturated \
liquid and saturated vapor molar densities.\
\>", "TableText",ExpressionUUID->"b29760d0-529c-4cba-ab7e-c7efaa20a918"]},
   {
    RowBox[{"sath", "[", 
     RowBox[{
      StyleBox["h", "TI"], ",", " ", 
      StyleBox["z", "TI"], ",", " ", 
      StyleBox["kph", "TI"]}], "]"}], Cell["\<\
Iterate for temperature, pressure, and density given enthalpy along the \
saturation boundary and the bulk composition.\
\>", "TableText",ExpressionUUID->"00530685-b93e-4bab-b61b-997ea2f85565"]},
   {
    RowBox[{"sats", "[", 
     RowBox[{
      StyleBox["s", "TI"], ",", " ", 
      StyleBox["z", "TI"], ",", " ", 
      StyleBox["kph", "TI"]}], "]"}], Cell["\<\
Iterate for temperature, pressure, and density given entropy along the \
saturation boundary and the bulk composition.\
\>", "TableText",ExpressionUUID->"99fb1750-7533-441d-96c0-718fc81b7c0a"]}
  }]], "DefinitionBox",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQPWGf/nWW6jeOYRdqb4Poo0u4X4PoO7IMn0F0YFLX
dxC95+ZlMD1rVkAlO5A+c52/BkRXuEcsANHvK1uXg+gHPfx3QPQN6bTHIHpv
2eEbHEB60sKE+yBa5fblxyD6jnXkMxAdcbDyNYh2cfvwBkRzBsX+AtEam5/8
BdEGk5bzcgLpW+fnyIPod30JHlxAeo0jezyI5igTSwbRe35A6JDnrZ0guub/
ii4w/XrNRrl6kLjjFhBdEi6zE0THvLXYD6Jrr0yt+d32xrHPdPcEEJ03a+00
EK02zXwBiJYItZuY3f3GMe3htRkgGgCCE5rq
  "],
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.25], {
      Scaled[0.75]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->16201561,ExpressionUUID->"ce62770c-c9a7-45f1-9b59-63ac19334ca2"],

Cell["Saturated vapor/liquid property functions.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}},
 CellID->79998218,ExpressionUUID->"1d783bd2-ade5-41f2-9f04-5dae7ec44592"],

Cell[TextData[{
 "For pure fluids, the dew point and bubble point at the same temperature are \
also at the same pressure, since temperature and pressure are constant \
through the two-phase region as the fluid vaporizes or condenses.  This means \
that on a Pressure-Temperature (P-T) plot, there is one single saturation \
curve (i.e. the saturation curves overlap).  For ",
 StyleBox["multi-component mixtures",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", however, this is not the case and the saturation temperature/pressure \
depends on the molar composition, which is not the same in the vapor and \
liquid equilibrium states.  This is demonstrated most dramatically for \
natural gas mixtures using Figure 1 from Volume 1 of Gas Conditioning and \
Processing [2], but occurs to some degree for all multi-component mixtures."
}], "Text",
 CellChangeTimes->{{3.823156707816448*^9, 3.823156727415056*^9}, {
   3.8231577730143933`*^9, 3.823157817045622*^9}, {3.828866449400976*^9, 
   3.828866496152975*^9}, {3.8288665905137005`*^9, 3.828866597761324*^9}, {
   3.828868887386112*^9, 3.8288689180980024`*^9}, 3.830599768549535*^9, {
   3.8305998430133753`*^9, 3.8305998526226673`*^9}, {3.8306001669006224`*^9, 
   3.830600166989385*^9}, {3.8306025166735587`*^9, 3.830602589305276*^9}},
 CellID->70163520,ExpressionUUID->"15f7d272-34c2-4da2-bf1f-865836858ed2"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvftfU9e6uLvPOb+cH89fsHFDy7ZuXaLI0lIrS0tR2WqVVaiXVdGioBak
ugAt4AXQClSBrwW02FZaTVuBGkShFSyxghjQWIOFKpeAQIMGCZdIAiTMnDEz
yGSSCwmQeQm8z2d8WtFcpgHz5B3jvfzXR5EBof/3f/zHf/z7/0X/Cdh5aOXB
gzs//ef/h74I3P/vvWH7d+9auz9qd9jug8s++n/Qbx79v/7jPw6h25O/1gMA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAACAXagkaWs90yRa+26tlaR5eth9awAAAADgJYTqSUnanpWu
c9xc0PIME7YRY3+oEMX5esWVKx3wPCBZAAAAYJYx3Jgf5rsuoVim0pFfavt7
X+lof6xTySTVsn7Cyr0nA0gWAAAAmFWM9FeeWLr+Qv3wOIuSgtsUnRi63C3k
YiFlRm2HKGWrJxntzlmULNao6grigwxfegWllMu1BLpbukdA3KkIMih23ZRU
3qElw+THggg/d3SzxQEfblpkeCidqu77SJ956HHc1xy5IVNbvCN5DW9s+fcn
68n7emxNFaHf1CpEp9Z5uLm5uHmFXqpDnwrwHRN2eblEFHaCjwEAAABeMVCb
uREZc3D875KCc1kbf61BRVDhZ580c4t31E/NOODFX0YXI7cSqofZgT57hM8I
UnkLg7IeqghdX+Vn3stSqwd6JGmblo7dbCH5UOoH6b7B2dIeQq9py4tYGFGs
sHBHwnAN65NEcq1+UF4cu3TJicp+nfbli5fI5sSzwrBVO/Jkhmd8fWVc0WgY
DgAAAAA8gnSoZcn+LaV6kBjb49XV5bzrl1hpPJsd9+Vgi2Cnezh25dp0iYr8
vU7hbhRddjyi3Wz0oQalmStc8PmvYXmkSTRmd+zUjtsuHhSn/G1jlnRAr5VL
Cs4nRe16/+155FWRz+iXIu5j46UCADvAP9VcXwUAADxBpyw9PNfidvGo4CjJ
SrPe8qVJlv4lKdm5UaVKc8m2P8h6a7VRgkbJ1uesnp9UOUDQn88OyQbl1LWI
4te/n1z0sF0+elX0OwIADwDJAgAwDvXDrPXLP0y71YJ3XImB3t4hC5LV95Eb
v7Tt4vH7wNR2sYkrX1QmrF0Zf9Nws5oM/3mj28Wr/GKKn2mNT2dVsi6BGRIl
oR+UlyasXJUh6f991Oza5vxQL5AswENAsgAAjIfQdoq/jcMpTGgtjyzusCRZ
WgrTaOKT8UtX37DMO8bEJ1NXEoq7Gdu9yRwnn4jk2ACTxCc3l0XGo1VLkl0d
Fj1634OCul5Cr2q4EkUmR3kE7g9ZTe5yg2QBngGSBQAAAACGAMkCAAAAAEOA
ZAEAAACAIUCywAwAegEBAMBPQLIAb7FfnZOWrLI8frFvvEgxjasDAACwDUgW
4C0MSpbob6mWtEBTIAAAGAYkC/AWSp2Eqvbb0OVk4ca7WdJBgjDrkWtXV1uy
9mRjQGx82GLP3Xl5xkKPQbnodBB5szluox2NAGYgi2vclsbcVBDUl1BrA8x8
QLIAbzFKVqcoPui+Pa+dILS9va8ICz1yh+3pamso8HTzOXJN1m8sw+xXS7M3
LIspaHbITBlgQsjXHL3b+CdVGjQLkgVmByBZgLcYJUsMy/L2LF72ftyl6s5B
iz1y5fZ0taV35R19h1fU5wQtTKgc4PAvOXsgX3Ofg3H7lvqcqlTqQLLALAEk
C/AW2kkroVU8KkzZ4bUkQaSQmPfIVdjT1ZY+vXT0Hf5FbeZGkCxL4Ndc/Cg/
dMWG9Jp+kCwwOwDJAryFimRHN34HKhPnB+XUd5r3yB22p6utBcn2qyUZvktg
u5gVjFYdbv5+xxvbc6TlTi3Z7u7uQqEQrbKyMrVabekmxJA0y8/ldb/MR0Ns
Xx3AI0CyAG8xSnaoXfgJPc2JMOuRa1dXWwuSVemJ3jrBQfJmkPjENGOhq6ou
Z/uCHfv2LfN3UslWVVW50WbzrfTx6ejoMLuVqjYzaPnb3nN9s2qH4Odq9gKS
BQCADej7w+Sgn/luLpOOZAl5WeqRzPyKJ12aEUYu0g5QDEs3LF6bg4JMbzf0
KMvXL7HoSvwbAVlSp/wsATgEkCwAAGww7hBW1y8+7TtpyQ7U52yZG/DJ8fAN
XmsOCyQvOGnxVSgUmksWrYaGBtqtDHvFbxwV9bWXRCyHHePZDEgWAACngFCW
H1nid0T0gtAPKh58HbYkMFXcxf4+rH2SVdVmBiyIE/XptYriKNgxns2AZAEA
cAaG2vL2zA3KbRjGttJ1l8YueDennvWuXSYHstTq7u6mXeyjLN/XaX8KO8az
F5AsAIwDSkv4ifpB+irvPcJnVECok2auMAxzZ/9a9u3da2LYy5cu0f7csFf8
WlSJwnBthCw/2At2jGctIFmADxjeMPH7lZtnwLGC+l5Lm2tahfhyWnETs7EL
SJZJtGp1b0NjR9mtVxbScSdgWC6MnLsqQ6IecywZyXqnS7hICFer1XGxsVYM
q6ftFWNgx3hWA5IF+MBY3wmiR5q1bW5wXpuFNyRaDQ6TlwKSZQgk1jsrVpf/
5wK8Hn16VGu5wtSM4frcoOWG3phGNLU5gcs2ZD5QPC3JiNjg6bEhMr2kgd2J
D0i16M2zUChk80kBpwMkC/AB+hgd8tdvZdbqdKq67yN95pGlr2uO3JD1kx2M
cezgerBEXp3uERCXsMvLJaJQ/rK+4Nj7hlkAnoGnRfJBFOYY7ztv5Z49294g
NxXJh90UnRi63C0k75Hp7ADq9m5eW7YGvGZSQjvfP6aoZRjCkGmBfEo3LOVZ
e+5LKO9lBC5fGXo6r1zS0N7RIi27GLV+7vqzNX/+FLnYZ79A0t7Z+iBn1/L4
ciW73yWQLGATkCzAB8aaOyke/hC9YUPmQ7X6QbpvcLa0h9Br2vIiFkYUKwiT
bhKvr4wrkqm0hib/sSXIrYYoeEGYUD7wIH2VX0zxs9F5AS5Gybqsjb/WoCII
09kBaur2OpX0fJDraDMov8DzUqRgsmfU6sjiv8CydtKtVDU2ywuLa775viQm
4dvII9mbPko74rnHxLB4FV25VVXzpEP+0saDapUNFVfSozb7oI89rj4fJhTU
Kruqk/29ArYE+OxMFT56Lv1y9ejntJ7a0jsyVqJaZNjxScUAYApIFuADBgOO
nnC5r8+WqgnaKa1hke+fJpL1SxH36fVqepN/QibY7Hqw6Nes1VT7pk7hbkqy
1G+Onx0wWJ+zen5S5QD+o7G2xvTMlom3qcdlls4+1Joh6eMWZNVPk77/73+c
srg+WxRiUbI73ozBN3gnMOPzs9eRcJGj7Xva9sKQFbuFbaN9rV3mzI0qJVta
94mg/wPAH0CyAB+gjY4dbUespYtvFEt9EfUD9Cb/pGRfO1zya8YKi5IdPfZ9
YTI7YBAJfcy/UxnQszkoCC3rbWxnJsiGt25L4078aE2sO2OOopX8dRRa30Vt
syjZ4C2nze8Yfug7ZFvk7gmff6Dh4k489FCvH1bW3bnbil78kT7R0QXrL9QP
E3rti4dlDwx/CgCcAZIF+ADtTHZ0sI5ybAsXaXGgt3donE/HJEsYmvyP3y7u
q0hc4n+ktN10uxg/hU5qOjugn7q9TiU5u86Fmh1geFj0HK96e229Vz969Cgu
Nnalj8+57HOWOtnOHLBbP47JNTHjm++dDD8eh3z6w697bz3eeadh+7j1+F/l
y/5uYtjbH8dUtbwUPem8VCpNOPfLB+Ffmzzm+W/KJtpJ1naIUrb5BMRkFfxu
bEvRJYrz3XjxyaCiJpdscL0tt0HD3EsBZ7KATUCyAB+gJz6NNFzc+EZsafcQ
lfjk5rLIkFlKkMevrnPc3s2pH6TlAI9lKM1bGZpdQWpRqxBnBi92I2cKhO9c
ayJZC7MDqNvPWxmRELdpo+nsANc9+W12lTl2d3dfvnQJqXbf3r1VVVUMvmRc
gKLL+JP55uFqxvcHrt4NM7Xq+FXZfO3uvT/Kl/lShhV9GFb1ZweSLH3dlD77
4spdE9uiJ21sllu5qOHehrsllbJRlQ6IU7yDM69+Fbkq6Nip/d64W4X2Re3d
OgUDIS1IFrAJSBaYiehe9fQbjD2oEH3my1FfIORZZFvkXGc/sUWha2FxzTvv
p4/b0T0ed/5qpIWI1WxVNH58V/ZoVKN/dlSW3LmTI6gU3TfRq8kqqm46fKbI
e2OafarFEAPiVG+XOe7+xwqfvmi4GOyX+WhQVZcfvcErMLm07ZXW0Z4FyQI2
AckCM5FucfIGdxutLdigo6PjXPY5pNq42NhHjx5xdBVTB+n1/DdldLeu3Z6E
4tbiB7tsuhWvquZzVS1/TezTCZboSWdqrshu1RJaecXX2cVkwSzRJAjanHZD
mBq4Yl1CsUw1pJJ+uWNPnsyhpVggWcAmIFkAYBq1Wl1WVoaTo9B7slMkRyGR
mewMo9D1h1/32ulW4xbxzSnr1WRdKLpPV+3nZ69PnIRMtOXteG2Zz9uBR4RP
VISeUNw+4T/fzWPth+FJ34rljupngj47zbxDAcCxgGQBgDUaGhpSU1LQvzgU
3vK2vhLJy0SvMamf2h+64nW36fBd2Z+OMqzFqPadwIzC4hprfwtCcefz/cmF
T/vIwHW4MT9shVfoV2JZR3udMH7V5vQHShZfUWBWA5IFAJbp7u5G8SwObFEc
xJ/A1mRz+M33TiZ/HWXPqatjt4htqvbwmSJ6sY+Ng1pCKUkPcl91urofH8yz
0pwTAIyAZAGAK5BheVL1o9YMkalNgRmUvCbWKy6ARetY5iFcs8PEFvEEq6i6
iZ6BLMirsFJUi2u45oy16zdvgzwNoOMTYBOQLOAEkJWtbsbWT0FHCupUdr1F
6pSiY16Lj4mUrOcWTwaq6oerAz7p45YtYTn2bw4jpZq3j2Boi3ji9cWVu9Tu
MQppzSpqCc3T74Lf2HTiZ+GZDREXxE3y9tobCZvm+p8Rkz8SI4Oa6c7FgcQn
wCYgWcAJGGs9Yegt/Jq9VauESlZdLbPPyByjVqvZr/oxOX5d9cGJv687mfH9
Aft3hpFwz1+NRHe513yeuS3iCdZN6bOQwwLqrzDulJboEqds33FBqiJoAyPI
SuoBVX3BkQAv9KXP9pRr+Nx2SoBkAZuAZAEngD5+jvz1xizpAKF6LCBb+sxx
c11/6EbzMKnU0d9x99n58dZVu4XttG6NdQXxQYb2yF5BKeVkqz3ycQLiTkWQ
7SZcNyWVd/DkkA5X/aB/lakpKYxW/dD3h+f7jjuHnewh7D1ZKft6NQlp6TU+
Y1vH2kENVRtLaHpfqtDPwrAsb8/iFbszb9W3d8junQv2TqD2OghNX69mxP7X
ECQL2AQkCzgBlGS1L6TfH/IlJwj0SNI2B2U9JEfqPCsImx9VouiWpG1aauhk
q5UXxyzxpEm2T5q5BTe5pXojE+RjLjQ8gq6v8jPvZanVAzyKeBmt+umQvww/
9J154yY7m0swnUU8tUU/pUUfHqxnQ/VUJ69dEF3aPfrdbi8M8YsufWH4dXdl
wmqvuHL7M49BsoBNQLKAE0AK0TgQx3VzlrRv3Cktudam19zLeXetYS6P3jif
xSjZwbqcd/3IZsUkZG9k9/BiBT06Ng4R4O5vaBUUzDq26gcFsJRYg/YdvyLa
O4UKndEA1u4t4pvSZ0iCTHvWJPH41m2ppRfgRWmUH/rZwF8QyvIjS/xTxD16
ovfP2zUNTx9Uy/rt/7CFviPO3s4LYBqQLOAEUEKkRgBo6d40QGp3tRXJGicC
kBgHEDiJZDG46odqiTy1wLZbqaIHsFPYFp7yFjE+Nk3NFbEQ0tLbVpz/psws
61inFCUs337unuwvuazyQujyucHfNw/11OXu81ocmS/jSzkVMGMAyQJOAE2I
eJhdqVJJbQ4bOxV3VyasXRl/0+J2MXXj8dvFTiNZCnrVz6RiqKqaJ9QJLApg
bfbzd+wWMZUGjGyL4k2mPYuiZv/gbCrr2NSzRG99wbH3PfA8iMvS7i6DYfd9
W9dL6NWt1b/DdDzAgYBkASeALsSRJ7kbVsWUPh9LfHKZ4x6c10a2zrubsd2b
7FccGLZ79bLxiU9UlpRvWOYdY+KT80kWg/RKtUS2WfWDFENvMXEs89B0Alix
7NupZRHflD7DZ6ZIf+xsHVNZx+jThfm8PELT87xLpdVr2oRRRsMOystPrXNd
FSNsUNnnWTiTBWwCkgVmDMapr4RWUZ60aktO/Qzf+qNX/aC3eouBLT3H6c33
Tk62+fD4ADb8nuzONMWHz0z3J+UzLVm8qCNaK6lQxPDT3M2vBWU8UI4a9jXf
3ceTE0L8loZ+36Cx7VmQLGATkCwwUxjpF3/u6zrZhhUzgYaGBotVP7cr//Bc
k0q1959Cg0RaAHvCUVnEX1y5y8KOMbUuFN2noviqmiemrx3R19r4QjtqWGMl
l/ZJbuAqY8rxRIBkAZuAZAFgZkCv+kG/OHm6AJvF/c3o94PXlj3exv4WMU8W
PRXKgmf1hFqaveG1sVppQnHz0JLViZXGnQGd1Tm0IFnAJiBZAJhhVNfc//tb
gejf9et/++eCf3wasv9d9Ov3t3lcrQhkf4uYJ6uouomecmz6kmk7a2tHj+QJ
Ve23oSsMaXIjw21lZ7O+v5IQ5Jf4m9KSZ6F3MWATkCwAzCQ65C+X/u9p0iZv
H/X6xwdLlrxOVRMvXeZ+/so6+w1bLTvJk0YTbHjWADasV+ilOhXZA8pQRevm
5pNQKh9k99sIzBxAsgAwY6DX6Xx8LB6J8lT2u7SWHeQ6enqlXYZt+c6pt4gt
LirD2YpnBxou7lxKGRYLNyQxOWTjnrzGYfa/ncCMACQLADMDeiun81cjsStX
/+//mEgWbx0X3988gWFnxhaxxSV60jmRZ7X9va90ZIK6/LeM7av8o/PqVTpC
1db43HIky9XgJMCJAMkCwAyAqoQ1qdO5WhH4Q1kAimfR2rHXCy1q6/hi0Xvm
eq1q/nQmbRFPxbMkClGcr7HVyURA4hNgE5AsADg1as0QVQlrZyunssfbkHnN
JSuWcTOujn+eRZJdvS69xmYVGEgWsAlIFgCcFxPDTqcSlvNxdUXVTSGHBSw0
g7LHs4Tqj5++uwORLDB9QLIA4KR0yF9SaU4xqZ9OXa/82CLGM2GR+Fh7Rrpn
x017txuQLGATkCwAOCNTNuzVu2E//LqXinmrW77kzxbx/qR89NdJOPcLJ561
1KcCAKYLSBYAnI4mWSfVL5FKJEYLqRN9GX48Di1rkt0Zc5TaXk46d/Gm9Bnn
bqUrD5ey5t2pZ+1J0SswYT8oAJgWIFkAcC5uV/6xwDfFxLAoOEVipUp41m5P
sibZ3JLwY5mHPvj4JHXjC0X3OdcrtS6VSlneNK4a36fCfF7PBMDQdsAmIFkA
cCKQYc2LYa/eDaPcigRqM8H4vmGLGIWNSK9IZ7wKZqsMm8ZosTlEgO5Zi3Px
rAFnsoBNQLIA4CxQhl3o9xkKSOneRG61c4zd/dZbnGuUn4ua17MlLMd0zrsV
QLKATUCyAOAUVNU8oQxrTzGsxSzi6tYnnLuMz4vybPih7+zxLEgWsAlIFgD4
D2XYRWumaNhqWTp/soj5vKg579aGCNAByQI2AckCAM+hDPv39Se/Kto/BcPW
tF6fQkzHq4QoNheuJELr1m3pxN+amTnqTitJ91ibLlE56+PzDJAsAPAZyrCe
/p/9fd3JoH3HJ6XXu03h4hbpZC1zU/qMh4nHrC168az0cQvXPwLTQSVJW+uZ
JtHavqVWIb6cVtxEzh8CyToUkCwA8Bb6OSz+Rcb3ByYRwLZMfYuYOp1krc8h
r9bUko35h/2Spd0SJOtQQLIAwE+onk7/885oec6kTmOnsEVs0bPINXyr8WFn
5d2pnzgJqqOjA7158nvUnVGdRG9d7j4v9G7vGpglVemJ3vqCY+97uLm5uHkG
nhbJBxTFB93xJETXgyXy6nQPr237dq50RV9uSirvIM2LHkFwkPwdl/n+MUUt
w4RWkua5KToxdLlbyMXCtI0BsfFhi9EDegWduSJM2erpMsfdJ0YoU5MxsujU
OsNzeeFZvSBZAAC4ht41kXyfPx5nf/P/qW0RW1ypuSL2W0PwZ+F2ytaSoBoa
GtCbJ7/PZI2SVRTvdw3Lbx82DMzVqqXZG5bFlsgH9USPNGvbgjChnDCJZBcG
ZT1UETqlKGHpstTqgRG1JMMv8LyUVGRzfujqyOK/SMm6rI2/1qAy3Nfd8Kfa
ZwVhr3mF5TVriZeViWu9k8UDekL78sVLLaEnnhWGrdqRJyNAsgAAcArdsF9c
OTCpLWKx7IRjs4hDDguQazj3HVeLSoIy77joTJIdbswPW+EZEP+tWK7Vq+tz
ghYmVA4YbkHIBJtR9Krotbxd3Cnc7RJR2NlXm7kRywIvdEsNkuzfUqoHCStb
zdpOYYRbiLCT/E25pOB8UtSu99+eR94MJAsAAHd0K1WUYel9ifHKLQmPSf00
aN9xKsjFa2fMUfRHNa35nFuJiSV60smV6NFT+wdnW+y46EySRb/UvpAKU4MX
+x0RyaSZG8dJ9rXDpcq+CSXbT/cyhoxkPfAdJpQs8UIUv/795KKH7fLRm4Fk
AQDgCPp8WLphix/sQm59872xhsPIs0iseGHnXi4t4dyGDC0cTl4qdcwe+GRX
UXWTxcPZjo6OuNhY9F8Of2BsYdSfVtn5clCvV1Ym+K3OeaySZPguMdkuHqil
zGtBssNq6i7Iy696e7WEvZLVSbPe8k2sVBr2mb1AsgAAcAXdsMlfR9EDWPQl
+k0kWaRak4aKhkYTJ0V/PuVchcwtnIMUcljA1QVMfDjLY0b1N9wu3DOW5jRI
y2KatzI0u4JUJ0Ee1KLfeTenftBcslraXea4ue7JbxuyV7J6VcOVKPKOHoH7
Q1YvShYPgmQBAOAC9AZubT4snmFnMffJ2hbxDEsJxoWrHNYTUYezTl45C7AN
SBYA+ABl2AlGwZpnEd+T3bFoBFzmefhMEedydNTC9UQc/o2ow9l3AjO6lWQU
1t3dXSgUwqg7YGJAsgDAOfSmEyhcTf46amfM0YkNWy07eVf25wRGwKFfwrlf
OPejoxZ2HMsj8OiLqpyNP5mvd47EJ4B7QLIAwC2UYf/nnVPf3fwYz15/872T
xQ92WTPs/dbvbNbp3JQ+wz2LHJsvhBzH1Ub0F1fuoniWQ8mihT60UG2NQbKA
PYBkAYBDOuQvl607jd605648dfq7f+M8YfRfa4a92xRe02p5i9ha5IVU6ygx
4Z7G+5NmZqGQnQtvEbwTmHH/gRQkax/2d3ecgYBkAYAr1Jqhtw3BJlrIsLhC
Jyb1U2vNne41fzrBFrHFhSMvB24a4z3bGZZVNak1VtETc5HXkiVrZ9xG20d4
BB0pqFMRFm5FKMTfnilu1DF6KSBZkCwAsA29YOfgZ7HYsCaVO+O2iFu+nEIr
JxTD4k1jR2kRF7PM5h5QVYZuk697bKXaH53LPqdWq+nfXJ00c8XonxqrZthn
rFJGp5KeD3qNrLuxdCuqEoc5QLIgWQBgGyqdODT2iLX+TrRD2FtTNoJj83Lx
jvGs7WaMV0L6eXqPQbT27d1L/+aOmYtQStID50aVKtn/CaOXo5K/3pglHSBU
jwURfuQsANf1h240D5M9jfFfwWt/4dV0j4C4hF1eZGHsoKq+4EiAlyEK3poq
ImcEUPd199n58dZVu4XthocdvYvw0c0kf0/y9ov3fVvXS9Bu77Y44MNNiwyS
1anqvo/0mYdu5r7myA2Z2tbfYSYAkgUA9rl1W4rF+kH48YkNe6/50+rWJ9OU
gmP3ePGh5KzdMf7l9yYTw+L16NEj6vs7JlmtXJQYsCHzIQc6oSSrfSH9/pDv
+mypukeSttnQ+Z8gO/nPjypRaGmXim7/+sq4IplKp1c/zFq/Nqb4mRZHwW9E
Fsq7JGmblkYXy7WEVl4cs8TTKFnjXUabSg3LhZELgvPaiD7q9oTqYXbgQlKy
6gfpvsHZ0h5Cr2nLi1gYUaywtIM9wwDJAgDLSB+3YLGu/lfSxIad2hax+cJ7
vKm5IodYBj0a8mzenXrOfcfJyhPVWJRsoVBIfYsNE2qMf7QqQ6LmwiWkAY3X
4Lo5S9o37pSWXKSCx0vWL0Xch+6qq89ZPT+pcsBw2USTIGjF/ms/57y7Fv+p
Xt9eGLLCKFk/428Odj4Q5iRG7Q5Y4Y4ecLAu510/spsiyeh28eDYLjo+KZ4V
O8ggWQBgE6r//5vvnUz5JmoCw05/ICy1RE860ROheJZzQ82AZU2yZWVjHReN
5tKp2sSC6A3r0mo46CFIRbJUg2ItXXwmlzpue5k8Ux4n2VXRJSVZb622JNnR
Y1+lKME7IOWGpK33geEBB6W02xslS3f3rAEkCwCsQU92+uHXvbjzv8U6HUcN
hKUWCmMvFN3n3FAzY61Zv8lcsvTWT/RsIqYzi9RqNX2negyaNI2jdpTUFi7S
4quefi3dp/QzXPWD9FV+47eLOysT1q6Mv2m2XYzvQs0XIPeB55J/327q9oSq
JsN/3uh28ejDomsa6O21kIg18wDJAgBrHE68YrH//7gAtiXdsQNhYTl8Xbv3
eOmby+mGdf/7PvogPFp4+FycvnUBM4ePHR0d57LPrfTxiYuNtfDHdGmOPMnd
sCqm9PlYMhK6ZvLkVG84fp3v5hKUI71D69tPy1Dy2ZtVYUh8UtzN2O5tyJcO
27162XjJEpqnVwy39woK37nWMGfWeHv0CBHJsQEmiU9uLovIAe6Of1V4B0gW
ANjhx6ujk1z2Hom3aljHbRHDYnT98nvT8fTza9YHHDiS7OUXS/VaxNDOZOf5
bM9weAlPVVXVvr17kV4vX7rEWvNkPOEO/V+rKE9atSWnflbkBk8fkCwwq2Fr
6laTrBMbdun6kyVWt4irOXeHs6yb0mcfhH/Nk87Mqbki/M2tqnnC6E8R8imy
KnIrMizyLKPPZcZIv/hzX1cbrS0Ac0CygBNA9DUUp4eN7jLNcQ8Vysf+geuU
omNei4+JlDpa7xqFKM7XK67cdnEiK5JVa4aW/u9o70T0302hCVisV++G4eZO
1bKTVTIZ57JwosWrVC5qQM+WsBz6VHcH8ujRo7jYWKTXc9nn+D0mHjAFJAvw
HrUsL3Kpf1KJrN+g1qHennHpiYRKVl0tUxH0DBOdSiapHr39hLAi2ZDIb3Ck
g9a8VafiMg7jEbFvvncyaN9xawNhGdIBhyNZHbvwgFcO/zrX7j3+6OMD6L9V
xo4faBUW1zjwJ0etVhcKhZuDgtAqKysz6SsFOAUgWYDv9FckLtmaUz8w7jdp
rWbyhcmkW+W03jXFT41t3AitvDw10NC4xsUvRdytEJ1a5+Hm5uLmFXqpjqyg
Z1yyVN8JtBat+eyKaC81h/2DjxMdWL5qz8IBF+d+dMjCXmPz1TNZuJYH/Rd/
GXJYQA4OeD/DIcFsQ0MDClrR46empPC3PTJgByBZgOeQJQaGZMVxv0trNUMF
sLRI1tgr1dC4JrrgqfH8iNC+fPFSS+iJZ4Vhq8jkRoYl2yF/SRkWrdyScPpA
2JuP6rw3pjlwSo7NdfhMkQOjP6RsDvsrct7g0USy1LTZ89+U2f7JsAKKVauq
qnDoChPhZwYgWYDnkOq0LNnRVjMTSNZC8btWLik4nxS16/23DYV7TEoWRTT+
W7+gDHss85D5QFhsPdYqWHHrJ0c9HY7dOBzwihs8cnUBJpKtMu5go9WtnPRP
FL0eh42kJvtm9FhAWR6/2DdepGD28mYQIFmA7yhLo1/bYmm7eFSOE0mW3rgG
QbwQxa9/P7noYbt8NNRlUrInTgspw+6MOWpxICwOfxzVvd+2FwxP56ikXDxH
j8P+iiiY5VDx5pLFwfVkg1mkVJzUxGY9jp0zeixA9LdUS1pUzM7Gm0mAZAHe
0yfN3LxgW4ZoNJHJ0KnGkmRpveCo7WKyw8zYdjH56d2XbCunbc4P9WJUsjd/
fUQZ9s33TuIs4pqWk+YDYdnc88RJuSgCdcijXSqVcnsqysOFtybQamyWT/wT
YlKPw3ZSkz0zeqxO3sHdGnvrC469b8hwMI7zQ//uNgbEJhjaTcxfl3jL0Fpq
tgOSBZwArbw6N97wz9kwoDPiRqclyY71rqlXGBOf6B1m/FLEHQ1Xola6znHz
CNwfsnpRsniQGcl2K1UL302hanZwB8UHrZcstnLCm66sWQCfAjvkoXDg5ihl
z4xFDfCl96Yw4dGjR6kpKXgQLWf1OHbN6Om2MnkH3bFfLc3esCy2BLmV6o1M
kB9u3QPPS1U6oq8iaZl/iriHm78dnwDJAsDEEKonJWl7Vo6mLnuGCdtsfjpH
b7BUGIs7KN5/VmntbRkf5LE2Oc6xTvcPznaUsp1uif7syBPVoP+a/D7Vm8Ik
mEWxallZGV/qceyZ0VNzz8rkHSRZRX1OkKFZMQnZG9n1YImilzac3Xj7WQ9I
FgAmYrgxP8x3XUKxDB9Caft7X9k4jSosrsHvsQc+iw0/HmdzICx+T2btZBPv
Zzrq6WZM1e0UlvmZLF7mwSy9HsdyM3/2sWdGj05qffLOC+NEABLjAII+kKw5
IFkAsM5If+WJpesv1A/be7RE1ewE7Ttu2CK2PRCWZcmy/HQzeFmTLPUi//eK
pPyC67jJMO/qceya0dNtffJOv1qS4bvEwnYxSNYEkCwAWIcc4EUe3dp9h49j
crFkr94Nu996i4fW47yHw4xZE0i2qPrPBX//wM31f1b5BrLeZNg+7JvRM9Hk
HaK3TnDQcIwyb2VodsVo4hNI1hSQLABYh3zTsCnZ3obGVuE1tEpOnvNekYQU
lvnjsYm3iMe9V9+pR8pj7UwWV/GAZB3wSlqS7IWffv7o4wNL31wetPPgf799
1J40Yz4Dk3emD0gWcDbI6NKYm+EVlFgs05jv5Y5NDbD0CFqF+HJacZMdlX46
ZenhuRNuFyO3lv/nAmr98l9/jw2P5/NA2KLqppDDAhjgPv31y+9NqTmX0H+p
XyO3Bn74EfKs6M8O6mQ27oTVNGPeA5N3HABIFnA2xrakCNXD7MDlFkc/U1MD
Jn4E25BlQcs/TLs1Wn1PDPT2jtXsoxiWbli8ft19gPP3f1isLRTJRhw+ht5F
D504bRLVWkszBmYVIFnA2aArsq862Y/8taquID7IE8e2KeVknga9DdSmmGRc
UO9/SiQfUBQfdB+tXDhYorAZzhLaTvG3cUHGGdzLI4s7KHWbhLHUGuw2HbLX
rxmmVkePGq+nL/rrOvu+/+UhCi1nc5quMy4Uq569/NOa9ZvQQjGseSFPFS3N
OOX/XHfwPwLAeQDJAs4GJdlBxaNLkUs2pIhbpJlbvA1ZkYbY1meP8NkwXbKu
27KlPQTxsjJxrXeyeGBSkeyEWJMsinDtfxBc8oOCnUHtCFKwcmAI+be1+xXy
r/SvXs5t4hTrUqn0g/Cv0X+ZePBffm8K/PAjKkq9du8xClrR22bwnv3WEp+o
hTtPTq2bMTAzAMkCzgapSNwXwj/kaE5Zk0pHr+8bbBHsdA8vlltoaKztFEa4
hQg7HSfZjrJbFiU7qQf5/Oz1id+EsXw7+zRIvsi8D9uVnEuNvlC8lporYkhw
9kvWgT2Z6eu7kt+Wvrkc/bztjYq78NPPyLboy4T088i8E2QXU4vqZpz99dRH
8wBODUgWcDbMFEl1JCYhJTs3qlTBimS1avVvCz1NDIvC20k9CG4PNdmnRtrt
Ug3yRLucN1d0bE9maiGZ0jogzfnXrn3Is9Sf2iPZKlo3YwhmZycgWcDZMFdk
H1VEb3m72FSyA/RmNdO6lMof2uI9a/wWTtmwiPBD301BsiboRggc7TZ3qWxu
Ml8ouu/YuT/eG9P8g7M5lGyVceydox5N9GfHRx8foBuW7NeUc4l+GzslSwWz
V29UT/O7DDgjIFnA2bAQh9Kmh/iGZd4xTXwylSxB9jZ3neP2bk79NAZ2Dcsb
FalL0Or+aofmuXxS57B00Nsv8uzUr8MKlHPN41yHjyRgecaBxeXAdpHIm3iL
2GSh36Tf7Nq9x0jE6L92vj7/+GeGWmPfODlgBgGSBYApQAxpur5YhyWr7f5r
yo+D3nUnntjiEFCci/Op6jr7mHAiyzMOLC5HdbJC4Sr2KRJoxOFj6Muzl39C
2sX1sFO0tqEBCPma1zxh9BsN8BCQLABMgZ6fjmPDqmt/nc7jNDbL0XuvIK/C
URdmD4cS89CTPn3RX/Os2yGC40M/ZKT4S6XS6c9wt7n9O7XlH5yNXqL3d51n
8xsN8AGQLABMFiRWbNi+4rRpPhQKbdB7b2FxjUMuzE7oqVYDQ7rOPs00hYsP
ebmNZNlf9I5P9rxE0JhidgKSBYBJoe3+Cxu264t1xJBmmo9GFck65NrsxFo+
M26UAcW5di47E5+ohRtTnEibdGoc4NSAZAFgUigFB7Bkh+VTzHSig33HcnGH
zaIh3QjRpRps7lI5aj95Rq7JShYaU8xOQLIAYD+qyh+wYdEvHPKAW8Jypl+/
M1kmVZk7MKRr7X7FeSkuD9dkJUvV8uT+eIfR7y/AK0CyAGAnVM0OCmYd9Zhq
zVCH/KWjHs1Optb+YlA70tmngc3kKUu2ypiGvSIgnYlvK8BPQLIAYA/EkKb7
qx3Tr9nhA1OTLAXYFi/Rnx3IsBZHA1hbuP0jWpViqOWZLYBkAcAeqI3igfsO
m6iCYlhOck2nKVkKZFvYSZ7swrU8nxz9cfqvP+AUgGQBwCZMbBTrjaMB2N8u
3hKW805ghgMfsF8z3Nyl4txfTrGoIbOQ/jRLAMkCwMRQzZ3Qfx27Uexw2dlJ
YXENE62HcE7y7Alsp3AmW0VLf8q5LHL4twDgISBZAJiYvuI0hzR3MgEFMiw0
VGQNQV4F9XeZJYHt1CRbZUx/2rDzHLffMoAdQLIAMAFDrbXYsD0/HXfsI3PS
64k5zM958Ykt+5W2F4ruo8VnyVLpT/cfybj6fgGsAZIFAGvQN4p1KqVjH/z8
N2UzqckeimQt/nV0I0RHj5pN1eLMIj5LtsrY/SkuRcjJNwtgE5AsAFiDoY1i
DCdtKJhj4v6QbKoWzxhioZHypHoXmyyq+xMMv5vxgGQBwCLMbRTrZ9yBrN6+
JszsqJYPI4FsrqLqJizZn397zNr3COAEkCwAmMPoRrGe0wNZ6eMWJp7a/kkH
g9qRpy/6mfOXowbLMr0+CP8aXef2yIuO/UYAfAMkCwDmMLpRrOeuQlbP2Nwf
FJujx7R/87NfM8xQsQ+ekJ5w7hemLXnt3uOPPj6A/ju1u39x5S4OZju7+hz7
vQB4BUgWAExgdKMY805gBicVsnqOhutZRDdCtHa/YkJ/IYcFSGFMS3Y6iU9V
tILZvJIHXH8rAAYByQIAHaY3ivWGbororfX8N2VMPLhNOAyiLYJCWicdqDdN
yVYZc7S2RnzD9TcBYBCQLADQYXqjWG+YvIPCSenjFoYef2Ic1bjYgaCQltFT
Wt5KFh8fkxsLrQquvwkAU4BkAYCC6lHM3EYx53DVy9EmnX0azr3JsmRFTzqx
ZP/PRaY+0QGcA5IFAAw1zI65jWK9IYzltjSSz6VDA0O62dP6GC/cYvF/g7O5
fu0BpgDJAgCGGmbH3EYx4tZtsqUeV3vF/K/P1Y0QdZ19nLuPtUXtGNc1d3L9
2gOMAJIFAD2LG8Xhh77jcMxZY7PcKRomM5R17Ng1haHtFh7EuGOc8c0trl91
gBFAsgBAbRSj5dhhdibgQBJ5lrmnmBjcBANF01xdgP10qQZ5nnU8/TNZvGDH
eGYDkgUAaqN44P51Rp8I7xVz6DjmimStDQiYDjw/onWUZKkdY9lf3Q589QCe
AJIFZjnURrFScIDp5+J2r1jPZJEsrgxyeE6XboSQ/tXLuU8ZlSy1Y3zpWrVj
Xz3A4RCanuedL1Vawv67gGSB2QxrG8V6HuwVYxjKbWa0/JafI+AdJdkqYx/j
LdCVgs9o5eIL0es83Nxc1qZL+tX111JPFNQP2bYtSBaYzbC2UaznwV4xozDd
44KHVbTTGXVnsqg+xh0vepl7DYFpMCwXRs519d19cIcPKVnVSMPFjS5h+e3D
Nu8JkgVmLWxuFOuNA2Q53CtmFBYaSSkHhuxPhbpQdN97YxrPB95Ri+pjLLz1
iNHXEJgq7YUhixYmVA50CncbJKunfmELkCwwO2Fzo1hv7Ff8+VnG42WuYKdb
48CQzk7POsvAO2rhHeODJwuYfg2BKfGiNMp7QXRptxy7tbe7NHaBy06BbNDm
PUGywOyEzY1ivTH5tqrmCQvPNbOxMxUKD7xjVLIOPJNFK+HcLziYHdSOcP0a
A+bolOIz61znrQzYsMJlUUBIyDoPt7k78trs+F6BZIFZCMsbxXrjbDtuGyoi
xaPF7TU4BHu6QhVVNyFh7U/KdxbJ4gtG61fxU65fYMAig/KK7DCfeQZpzlsZ
/pW403YYqwfJArMPljeKMchunKc88XD+znSwmXKM/rIhhwXOIlm0vDemoWtO
+qKY65cWMGdE0/Ois0ulJTS9zzuf92jsr+EByQKzDZY3ivkDWSQSlsP1VTiS
jh71TJLs4TNF6Jr9ofUTH5GXhHu5eaRJtJO+J0gWmFWwv1Gs1gzxYUI6rtKd
eZlXXapBqxK8U19U7YD6Gmvr2r3HH318AP3XUQ8IwwJ4DD6TXRtfIGmRd45i
X0ALkgVmD5xsFOPyWM5TnqSPW5xiNMAUmFRpD58X1fpJcH0GfpucHE1DXpQ/
2YliDm1FFHbajmxBssDsgZONYp6Ux+KuxVyN2GMa+0t7eL5wIU/YpwKuX1HA
BCTZ+N0hu8at0LOVSp3Ne4JkgVkC+xvFeuNoOT5s0uKsJ85dzxzsTxNwYMcn
aqXmiqCQh5eAZAFgIjjZKEac/6aMJ/EjriFi6MFxcRBDD24/LE8TcHjiU5Wx
vBet32oauH45AToqSdra8XvFc9wWHxOBZAHAQF9xGvsbxTjXiA8JvfhKUDDL
0OPzpziITc8yIdkqYyEPzHDnGYRW9bKTQt50LyvEe48QmlEAAGKotRYbtuen
42w+Lz4G5UOuEdNZT3iEH0MPPlmQZ9mZ2sOQZPEM960wkYffEO15wdBWEQAM
G8VdX6xDhkX/1amUbD41TnniQ4clprOe+DDCzwQWPMuQZKmJPJ1dfVy/igCF
eSS7c67LxizpgM17gmSBmQ21Uayu/ZXN562qeYLeJ89/U8bmk1qD6awnRvei
pwzTnhX92YEMi/7r2IelJvL8/Ntjrl9CgMLSmeyqDIka5skCsxquNor1Rq81
NstZfl6LoMtgbq8YZ1AL8ioYevzpMEGrCj4v/+Bs9JKezIT+ivzBJLt4f3za
j3fbB+xprgiSBWYqHG4U48F2fNtBZQj0l0WfKPiQXWwRZ/Qs7q+4bgf0V5wJ
gGSBmQqKXnEYq3kqZvmp8Rkob70ze0BRNvoMwJBnGTqTraL1V4RjWd5AaGQ1
tyVtKkJPqOoKU6L3RJ8tedoHkSwwa1HX/ooN21ecxskF8KFfMUAdFjPRepE5
ycKxLP9QViascg/Oaxt5IYr3hTNZYJajUympjWJiSMP15QCcQc/IcnjrReYk
WwXHsryDnMKzMO5GozgryPV13+RfW8WZGyC7GJitKAUHcBg71FrL8lOrNUOf
n73OhxZPGHQ9M7iVok1MCngd61lGJYuPZdfvOMfhqwfQGJYXx3iNNnqKKZEP
DUmz/Fy25TbY/gwPkgVmGAP3r2PD9t+6wP6z86pyRz+jh+/Yg3krKgd6lone
xdSijmW7XvZz9eoB4yD6W27/kJV5qayhj9DreqUFqanXZcOwXQzMLrTdf2HD
dn+1g5ONYp7M3KGY2cN3bGKx3yPyLJstjqe2qGPZm3f+4OSlA8YDiU8AQNbs
UBvFw/JG9i8Ah7F8mLlDgS3Dh65TnGCtqTLLowSmtvCxbEr2z+y/boAZkPgE
AGPjYtEvOLkAXjWgwMyect3JMn3PXrv3+KOPD6D/MiRZfCy7YSccy/IBSHwC
ZjucjIulgxsf8aq7IL4kRg+IUdjOq7/ypJimZxlNfKqiNTGetRsRfAISn4BZ
DdXcieVxsXR4GMay0BOD0TG1LDAdzzIt2aLqJizZ6ofNXL9OACQ+AbMarqYA
UOCYkQ+jY+kwPRcARVh8C96nwJQ9y7Rkq4yzZc9fEnH9IgGjEJqe550vVVp7
Mp5GAckCzo7mqZirKQAUn5+9zsM+ikx7n8+jASbF1EbQsiBZPFt2/xFucgyA
cWjl4gvR6zzc3FzWpkv61fXXUk8U1A9BJAvMcOjNnVieAkCBQkUehrG4QpZR
A86wFs3sjHqf1ErNFeEdY65fG2BYLoyc6+q7++AOH1KyqpGGixtdwvLbh23e
EyQLODUcNneiOP9NGQ9dg/TKdIUs/ovPpC7NfPNs3p16LFlenfXPStoLQxYt
TKgc6BTuNkhWT/3CFiBZwHnhtrkTBXoD5E+LJwrcUZDRxFSkV759tJg+9nuW
oaHtJgtLNu8a25OkgPG8KI3yXhBd2i3Hbu3tLo1d4LJTIBu0eU+QLOCkUDU7
XDV34jkokuWh+p0COz3LwpksWiGHBUiyx08Xcv2qzHJ0SvGZda7zVgZsWOGy
KCAkZJ2H29wdeW0jtu8JkgWcEWRV5FZua3b0htNY2MebkdjjWXYkm3DuFyTZ
FQHpXL8kwKC8IjvMZ55BmvNWhn8l7rQdxupBsoBzQtXsDNznsochPpSctZ2B
ZzY2PcuOZC+VSvGOMX8aYs9KRjQ9Lzq7VFpC0/u883mPxv4aHpAs4HTwoWZH
z9ekYoBOY7O8sLhmynqa2LPsSJaaFDDzjr+dCrKtoptHmkQ76XuCZAGuIbRa
nV4/+LyRnHBhEz7U7GD4mVQM0MFFRtPZ0p/As4yOuqMvPCngm+9/c+ArA0wS
fCa7Nr5A0iLvHMW+gBYkC3BMf0VSUOzlqxnBvqcqlTqbN+dDzY6ery2eMNDq
lmL6kkW0dr9iWqMTL9ySIvTf3zrqZQEmj6YhL8qf7EQxh7YiCjttR7YgWYBj
iN663H1eLq/7JpYrbDUro+bscFuzozd2LORnGPv52evvBGbAEZ7eQZJFdKkG
OZQstKTgAUiy8btDdo1boWftiQtAsgDX6JSiz3Yc/zzef6FXyHlDwt5AR6Pc
fB+GPzU7fA5j9aw07Zc+bkGL/yGzoySrt+RZds5kq6AlBedoX0jyTkeH7olO
vFBS1z3ZU1mQLMAlxEBn/e8SafPLwRFC1ViSvNXTIzD6s4Pve5+o7B9XgcaH
OTsUPBy4Q9Ehf8n0eDs9K50uHAJue+Wo75SJZ1NzLqE3T6abUeCFJXvrttQh
fxFgMqjqcra7U1vEr4UJmtWTuj9IFuAOVYMgwjCi0c1r+1lR2wBBDpPKTYpL
K6zvNQlke346zu2cHQrcE5i3o2dY6CeMh+84xSx49DqgF8SBD0j3LJYsOzvG
H4R/jV7zz89yWbA2S9FJs956fWlUXl17h0z8Vdjieatz6mzvEdMAyQKc0SeK
f+toqWJQq/yjMHGL5+KdGaJWi9l6SKzYsH3FaaxfpSlbwnJ4G8bqmR9vp2dl
9ACfoTx76ORp1iJZ3JIiaPeXXP/tZx+K4v2uqxIrcSGDsjJhlXt4sWIyDwCS
BViE0PYqujTkPjChevh1xMYVGy424F1hol9WkhLkEZglNbWDtvsvbNiuL9Zx
3j4RRUZ8DmPZiTFZGD3Ac25X1Sx9czmVZZqQfp5pyV4ouo93jPm/RT/TIAcB
+CaWNhuKdppLE3zdtl2shRIegKfIS8KXrciUkpst2hcSwWF/1+W7s+52jiYV
61TPFSalsvT2icPyRg4ueTwd8pfIsLxN3GUnxnSWA1mG6O7uHl/HQa7UnEuM
SraouglLdjZ/tuGGPlH8G6bfbijhAfiKTtX+pKGtJid4f7ZYrkVfPhUeIZOK
z1W2D1j8SMiT9onOAu6PwfRWNnqW2Tx64Fz2OfP3WxTYMh3Mem9MQ99cxx4x
A7bRNeQfCDUt3oESHoDPEH0NwmPrjDEsoXpyLXGL55IEkdmPK3UUy237xNGL
0QzxsyqWzpawHKaLd4C42FiLcQ3TksXjeHh7VAFYAyQLsMhwr+yxRPL7n539
/TiGHU0q7mttfGGy7cLOUSyp+OSdPov9dyfk3pb1T3DAwv8mirh4BxJQmSY1
JYUTyeKWFPAhyukAyQJsoWq4ErXytYWef3Nzc10fk1fX32+IYRfHlSpMzzWQ
VVlpn9gnzdy5I/OmpOri/vmbs6R91m6H/YXiRD4fRLJQvAMgGhoazA176MRp
piUL43icFJAswA4jMsEW39RK5bCeGGivPLd78fqkSoXFGFZPO4pVVf7A4DWR
FXD7CzvV8uLDGxLvKImhNmHS0dIO83iWz00UKdDlhR/6js8fA2YMly9doht2
39697V09TEuWGscDuU/OBUgWYAVtpzBiYULlwOiXA/U5W2hfjoOaZIeCWWYv
ivirJGJD5MVvEtYfLpEP64frc4O2mtcQ8bz7BMAJHR0d+HD20aNH+HdY6G8M
uU/OCEgWYAViSJrlt/iTH572GeLEwRbBLouNU7Tdf7EzyY7QKBprn7Q8/nHP
Yjf3gESB8EpOVMCGpNuK8XEsCgx53n0C4Iru7u6Ghgb671Cerfw51YsKdf/r
H/88ciXvjxfTlyzkPjkjIFmAWYj+lsqCnIwL+SLxr18Ee3oExmReyruY+OGq
6MI203QmelUso5PsCFXtt6GGZgIeQXFfCi5+HhMWEpmYK+40GwOEDzpnc8UK
MCmwZyuun1iw4ERuEzJjV4Xk9mcR6zy2ffNTY9c0JYv7PvF2MgVgEZAswCRq
WV7kUp9dx4/vW+fxulfohdKfBelxB6KTL1tM5WXpKFavUxRHeUcLn8qf1Yu+
iV6z0DPg6A/VHebNW7qVKpzPCQedekNQ71wpN7duS9H3jv0tCORZmmQN6/ef
tv/3+uifn01TslTfJ5b/RsB0AMkCDKKTZq2KK+3WkQ0VlQ9zQ3180x5Ym2BB
VcUyfRRLKB58Fx0YnNeKpUpont29GLPug9yGYVPLfn72ulMcgbHjPsdOtGEB
B865s/z4QqG1N8/nFanjJNtSm7rZe1NO7TQlCzPvnBGQLMAUmvofYreu9Uiq
HG3mRAyKUxa9lVlrqUUKiw2KdcoHX4X5zHP3P5ovpRKbCa3W9LJ4PjSWTvih
71gon8Rn004U1DP9qWACyWolaYsWptIk+/tn/1y++WLd9I9lsWR5nugO0AHJ
AkxB9DVcOxHk4RmUcquNHAow+Jfw4KKIYoXZriw7DYoJpTg7JrvSUJNLqJpF
X0audPUOTrlepxy2eHtnyXfCNbxMJ8PgnXPn6nSBC6+Ye/yJJevpkVb84hU2
493qS+//978S7/w1fcn6B2c7xe4KQAGSBRiC0PT1aoZVsp9TApd5rgmJPrht
5fpTIvmg+S3ZaVBMqB7/mHrx3tO7P3xX2U5Kf7j36c3MUF9336zaIQutnpC8
nOKtDMdrTIc2t25LnW5oOB5kwNzj25SsRKtv7ur9taIwevM/fA7/fHPahq2C
BGMnBCQLMMCgXHQ6yMPNzdU3LPOOvLehJHmrp+umpFIL42KRWFlsUExoGoRH
Arzc1xwW4EwnbXeTrNuOcVX85Z3ADBZSs7CwnCvxiWkZNTQ0IM9a/COdNHOF
sYTnde9tYWdu3ph2ajFekGDsdIBkAYczIhNsDTpbIXtWl3dw6fqzkn6dcVzs
8uD03+S0MplheSP7s2JxppO/q1dQYoFUYSGyPv9NmbOceeH5tixUGCHJMj2m
1uE0Nss75C+5vgqS5i6VQwyL1hdX7kKCsXMBkgUcAPH87ndFdSqcO0Q2d1qU
LNYo76Zu2Jv7VKUflomuVLYPa1WyX7K/EiuNjkVWxX0n0NJ2/8XUpSnLjwbF
CiQmzRt1quZfz338rvleMe7v5CxCwceOPFEJMAGO8iyVYAzfdGcBJAtMH6Ln
4YWQ5e7+xwoNDZ3INsXLQqL3bo4pfqbV65SihOVhQrnZniw1AkBd+yuDFzc6
Hd4kx4lQS85u/HdBTfO4vWK1ZuidwAynyHfSG1OenOXzwMyjqqoqLjbW/ts7
xLNUB2On+BEF9CBZwFFo5eKsMC/XTYnFjaqR3rrcfV6vbU689JPw8qngVZ/k
y0yrY1WVP2DD9hWnMX9xOpWsLDPUd65PZI6oWYW0qqnNCVx/RPTCxPw4iQj9
l/lLcgD8n743s5kg8ckaDvEslqxTZOUBepAs4EgG5RVngxcvC0r+Wdbf03L7
ckrU3v3xF8rMmjvRRwAwdRQ73Hq3rE5Jb5Oo7a4TngjyWOgf/XXemW3eMTdN
iolwYayz9HeiulFxfSGzlylIVu8Iz34Q/jVI1okAyQIOgOhvuf1DVlrWtyUP
Whp/zdi+3DPw87K2AYtZu/QRAIwdxRJDTwU7F89fGX6hsp1+GSMaebUger37
knjzIbY4gdZZ5ojhdkbwTsshU5OsftqehSoe5wIkC0wRMtnpmpQ85RyWF8cs
9dmVcOrQh2/P9wq9VPf8CVmzsyRBpDRto0Sfxo7iWUavT6t4QPrUY0vStScq
uu8JVUfrSxPFYmc5UbMFdip3gAmYsmT10/MsruIByToLIFlgahA9D3PD/eb6
Hyt8Ir646ZP8Z+Sur2G6zYqlCRX9RH9rfYf5RjBbIwDwJfbW58X6u6Kf8Pn+
0QKJpWodDM4gQs5yojpQdKnOEnQDFpmyZ1NzRVDF40SAZIGpo30hubDXy3Wh
5xI8BYBEV5+z2tDrxhx2+06Q8bV3yHd1PQOqNjEZ0i7emX6zrovs9WQKLoRx
rnZG7AB1Iozy9EX/FCQLs3icC5AsMD0GO8Xndy9euC6hWEbWyeq6S2MXBue1
mR3HDrXWstt3QiVJ20SN2tFrGwTbV/isisIRNx3cMBA238xxxn7FbGI+tH2y
6EYI6V+9k5UslMo6FyBZYNoQWvlvGdu93d/e9u+D21auisp7arrpqlMpWeg7
oR83TWdQJgiZG3heiltkEH+VRITkSPvNRwAVFtc410Yxa+CCJgjwrTGdM1mK
KXi2qLoJSmWdCJAsMEWIgXbx1Zz0rG9LHso1I4SmtSyF62Qn3ZPc99bGixSj
X2rqBaHL3dd8kinIE5zZ47shW6q23KXYiQzL5qU63Ww7DFIP+uDEwgvlEMnq
p+RZGHjnRIBkgUlAdFV/f0XcOajXaxWl8d5URnFIjqRLqyf6WhtfmB/G9t+6
gA2LfsHw5fU13L4leXon+1CWyFBARLYpFqRGh4buT7hU3Wma+CR93OJcBsEN
qdjZ2cZVw864V4wDcBaywhwlWf3kPQv9KJwIkCwwCTRNN+I3zvU5KJA+zA8J
y20g+zgRmuZr0b5L48uVlsJEde2vVN8Jdq6RUD25lrjF02NLkvCPcc0oxoMi
HVwFw85VOQRcZ8TCOAC9sZ2UMyYw43pnFj4+OVCy+kl6FpfKgmSdApAsMDlw
XcxrCz09Igvlo2HrSMPFjZYyijkYsjPcmP/JJxmiP5sqzu1ePH9lRK61yh2c
Ucz52xShqitIjNwdsv9IVpHFkUAUVF9ldnaMUTzojPPU0KvEWj/nCUbdTQ37
PQv9KJwIkCwwOQidVqdRPMiN9PGkMor7Kj9b/oFANr44hrVkp/GX19dw7USQ
x7KgxKL6lhqycmdVhsTsKBZnFHPfWp9oL9m/NUZw+74w0ddSEyo6bIaxzgse
ouQs3afNsdOz+5PyQbLOAkgWmAyaNuHhzfHCBpVW23k3O2S5MaP4oKCud1xT
JfY6O5kzomkrJ7Od1xwWSJqazI6JqY1i7vOdlKXRS9Ik2oGGi2FbLtYP63uq
06JzpBauCoexvLhmfsPagSxzDGpHap5129OPAiTrFIBkgckwomm/kx2yArcm
HrGeUcxespMRor8m+9AXpdQwArIwdpGb647cpwMmt8RndryoTBl6lPVucGZR
Tti7p6v7dYSy/Ih3dImleBY6FdsJ0isK9tnJZ3PsmSydgSHdxJ6Fpk9OBEgW
sBOqBJXQtIrSd3otDssWy7VEX2OtaX8HqrMTe8lOgxpNf1Np2k6vsXynLlFc
aGal/NX4rWJsK85DAEKjaGp4ptQMKSpS1rnOWRCScb34SnqIX1BOrfnRNRXG
Olcu9IyHOcnqbXkWJOtEgGQB6wwqpNcvpKdnF0gU6ob8Pdtj8upGO+0T3dUp
G9xcfGJKTYexs97ZCV2MojJxs2G+Xn97pSHfKeRo2qkI/1WfV6vGnRPzpEcx
obh9wn8++nfn7rMn/Ya0pbY4O37/7pDIpO8fKCylQ+MtUAhj+QajktVP6Fmq
6RNzzw44CpAsYAUtCrI2rNqVcProbh/fT4qbXzz4OmysfeJgi2DPtvTyVtW4
jWJqjB2LyU6vZMWnw9Z4urm4eQaeuPa0d1jx6FrOZ/FHzpU87aMbC4WBuLsC
1yX86vqc7UGZlW3yZokwLcxnvmdgUoHUQn0xhpobC2Es32BasnrrnqUkC2f0
/AckC1iC0LYJI1dFF7ahUFTbKYxYGH72x5zz3+RdSQ9Z7r4mIvlM7IdLdglk
40pOuEh2IobqLmz0Tbmt0IxuYrtuPGKlPBbHg5x3VyC6Hn4dHphYqcRfaXsa
RF9+svGI5SpjvbFelRcnyMB4qqqq4mJjmX4Wi56lJAudFfkPSBawxLD85pGV
r21KLG5UkTvDGz0DDqYkH3zfY8UewZ3fBKnREUnfiuUmwVfPT8dZGWNHaLue
tfYMG35t+ACQUDma20Q8L41ebhhsd6VWOUy/Dw5j0eI6HjS8sK5uXiFZIipH
S6/TWm+agS+bnYvrkL9EYT7XLxFginJgCCTrvIBkASvg8TrLPwzfsS70Up1x
ws6Cd3PqzZvs09KJmR9j96I0ynthQkWfVkfoCbUkw3dJbIkcx9Sq2sw9CcKb
uRF+c9ccuSFT0++G3MHh1BJCIf4u++cGDUFmaMurf4gP8nT1DfviZkPPsM37
srYliMJ8Z69/mal0qQYtdlYEyfIfkCxgnRFNW1lq4DKv0K8NfZO0iuLo5QkV
/Wa30zwVU+nEzCc7oUhW1tj2MDdsX4aoVTPSJU4JcPcIis/5MT8n7v1ViWQ9
kfaFpKiiZXg0POTDRLCRtuJj+79+0Cy+WlJn2M0eVEiFqdu93dZfqB+2Gsay
CT78dcYuT1zh8I5PE2PiWZCsswCSBSaGUNXlR6+f63/s6p28I757Bc1qkxto
u/+i0olZ7OzULytJCfJYHpxe3qbubbmdmxgeGhZ91iTZSW9s7sR1shNGp3xw
Pnjx617bP79R101utmu7m2TdvFCs8fCXHy+Uc8BC4pMJdM9iycJhPf8ByQK2
QYHhhb1eLmuPlLabnMPSeycOtdYyeRGE9nlz47iTVp1K9nMKCrS3n8Uzd8zh
Sc0ODUKrrLuRssPLxTs45Xqd0vZeMTtAKe4UYF+yeppnYRCPswCSBexj8Hlj
m2q8yejpxOraX5l9fkJRkbh+7prY/Prx/RtVjSXJWz0Xx5k3/uVDzQ6huHUy
JoeW44QZVv5RdGa3r7uVvWJ05SxHKDjeh3fsScGJZBEdPWqQrBMBkgWmTF9x
Gqu9E1FAffHAytc2HhE+GdO9tkOUfa6g+i/zOlOcxsNpR31Cq/i9IHGLp+v6
6IuV7RqqM4ZOWZm8Mfbaw2bLe8W42ohNz6JIH71dO2kY2yF/iV4x9jcruJIs
4o/b4nz3d8v/cwFaT7K/1KpND3EA/gCSBaaGqvIHlnsnGsA5zwvXkUMKdOgq
GgT7fSOEbWYlMCh6xXN2eCCOQYXkhyMBXuTAguoODaEn+u+l+m7JeGC5NBa6
T0wW/JmE/f2K7u7uhoYGlp8U8fKRFOuVWveC/mXBsxrB+3PmuL0R8ZtxImW3
INDd5b88YyH4ZRWQLDAFqHTi7q92sNQ7cQzCMABohWdg8tWrpzasShKZbRSj
0AaPXuVDXjGG0HRUCw77u3oFJV6+ema7b+Ida90n8KDbaYex6FUSf5sQuTs0
OuXyby0qS2VXMwV8KDB7PpMgpZpIFq2Oslumt8OSdZkfVtZr+Lr14rrX0bv9
/IjyEbPHBJgDJAtMFlbTiYnu2upmCxbXdlSQ/Z2CzONB9GbLizk7w8+qf2se
f4o9ommvyAn3c7c0twiDx6E6YNDtiCx/59YjV25XCaKXWpqoO2NobJbzoZEX
m5gbFq1Hnx41vZ0s5W2X1//2P25vhP5CfgztyHjHZf4yT9fX/ilg+WPxLAck
C0wKendihtOJDRCy/I9OiPpGDB0IW2vrO1TUzjAx0NEoN3+74MFRrJ5MCnsq
2Ll4oX+0wFBiTP8T1fPnKovOozK1HFD82CncHSRoIfokadv2CJ8RenlJVHT+
+DaYMwNcecRJAw2uzmQtSvaP5NOmt5PGerosO3DQ1809tEyr+TPxLbe/RxwP
eB0kyzIgWcB+WE0nHkWrKD56oLhjSJa31z8wJMDXN+L7OuubnzhLlh9HsYRW
8UAQvd598c700ibLWh0PHsPnmI8H/RWJ3vuv3BXseZcMYwm5cI/3icr+GbhN
iCuPOHlqriSLglZzyT6vumdys5Gafy+c88/vm8gANuymKOnvr7+ZeLf634vd
3kqRsX/RsxiQLGA/VHdiFtKJCVXbQ/GD+s4Bok905KNLFVcO7C+W64neutwI
3/03TAfsGUGGQm+5fDmKJXrr82L9XecY2imbhbTjcXS+k6btRtxKV7el4V/+
cvOHlO0b9uQ18qUo16GgGJarEi2uJPuqo+POitU2wljySPafryHJap5mrHR7
472N/3B5K6m+Vxr7dzePWGhgwSYgWcBOWOxOrNcPN+Z/si/+1MH3FwcklddW
JEeeufjZxvWnRPJB/ciT3IBEwwayZXjTd2JYXnzIL6rgac+Aqk08GtLefNJr
ZRaAg/Kd9ISm53nnS9Vo58ZrGdF7dodGpwrrzENp9ELxIN53Yjgs4RnsVv4Y
8PHlN/63bEuYeQyLISXrtuPGkLYjw5d8n1+Z0aHXgGTZByQL2IO69lcWuxNT
R4qEVn4raf2u85eTP8wUt4pOB73t/+FHW4JT75qn5vJkfAwxqBkcvbYuUdzq
4LzW0a+0T3IDvX1WxRTKLQSUDsp3Mrxco+PgI3PKG6wJXW9s8QSdiqcDy72L
TcCfyqw3oxj6M9F71KdkytNra8416cfCWxYvdNYDkgVsMtRay3Z3YqK9ZP+m
sIsPldrBFkHE/qKy3G1nqgdGtKqOhiaFxkwduFKS62QnvV73JPe91TGleDN7
UCYIWbD9m9ETZOKvkog9F+stHyc7KN9poDZzMzkOvv2JOC8pyON1r+2phVbG
wTvy/BfgAluSBfgCSBaYGHo6MQuGJfprMvacFSt1hOqxIMJv7ls+a4POVivV
bXkxh0qfWwzMcN8JfnRvGOyU3JE8vZN96ItSWf+Iqvbb0OXuaz7JFOQJkncs
3XChbshyaNmtVE37YJHQPn/47cEtKeK+0S97ntz8InJnRk2/2XNSnYp5s7UO
TBqQrLMAkgUmgBjSUIbVPBUz/nzDjflhfkFZD40HiFpVVzeu2SEUxQc+KVaY
+YLqO8GfmV+Eqqk0baeX68Yjwj+6Vc/uClKjQ0P3J1yq7mSkgsY4qVZVfzHE
08XNK/SrarnlcQkUuOwF3p+nSVVVVVxsLFfPDr2LnQWQLGANesHOwH3mi/2J
LnFKkG/8TTmyKjHQWf/7w/pO2s5w758SmclRElVYypeBX9pnJfERSdeeqEYG
2isv7PdZtDL8KzEzbjVCDMuuHSUn1VYXlf3x7M/yi1Hr3V399n/5q7Vx8NC2
0VFwmPikB8k6DyBZwBpsFuyQ4PKc0Et1ymeixE3u5E/m/HWJt+TWs3fwjhmP
DhaJgTbR2WCytfLVOuXQaJ3sstRqG5Hl9NEpxWeDPOavDP3i5tO/2iUFSYFe
1sbBI7eid2ZOujfMMECygD2AZAGLUAU7bPT/1ypbpA9rZUotoZSkb/V522dD
wvWGnkFNW8kRn1Xxoi6Ld8J7ng7oQOhgCG1nVU6439w1hwWSF1qir7XRcupR
h/ylQ7e4jZNqXX3D0m7UKbo6Ou1pgAFMHZAsYA8gWcAcNgt2CEN2kOHncHlY
bq1quOP2d6Wy0RBMJUnbuFnQZC4LPiU7kRCqh9n7Twjrukd9qm3OD/Vyc9mS
Uz9g7S64wbKjU4+GlXXXU7d7WwtjAQfCB8ny46AE/Ttd65kmsfhhkpk7OhMg
WcAEasIOKwU7Aw0XQ/wSyxXaIeWjr4LfCBHQ+usaRsJtzZL2mdwH94TnUWcn
hKbhVnqol+v6mCtSJbm/raxM2J5c1vHKiuhwBU38yfwpP6GVcfDoD3TawZdN
MsuTamcA6JvOk09W3IIlO/FmCKF6UpK2ZyXZcwwtzzBhG+2nQiGK8/WKK1c6
4Fom50pCIf72THGjbtJ3dFJAsgAdVifsIIgmQVCYUaxITGuNcSsxLLtxNMCf
jG3NbIHTiblqpmcJ9FFh59LQL3+99VWkz3zPgIMppyL8l1ntFYw0Me0wnBoH
77c/p8J0HHx8ubU5es4O9NCgsC1ZMlffd11CsQwXZ2v7e1/Rq7R1Kpmk2vxD
2lSYnCu1kjRPD3xrkCwwu6CXxLJRsENCaF+9MqYQD7fnhRn+xen6JUU/3hHf
qWkz7zuhN+wV82OXDDMorzgf6e9p6LN08FLF3es5J2JizpY87bM2agdvFDsi
9WhQISVznOwcBz8DwDsAgrwKri+EhKuh7XrDT5EtyY70V55YanZqQApuU3Ri
6HK3kIuFo4IjtPLy1EAvgwv8UsR9hKquID7Ik/zSKyilXK4lDPeKSY7wc0c/
5P6G7qZkmExWspMJiosDPty0CP/LVdV9H+kzj/y3sObIDZkaPV+6R0DcqQgy
mnbdlFTeoVUU7x+NrL32Fz9Fkl2wdc9e8i5UlqPpg9CuWdhO/drFzTPwc6Ew
JcjDzc3V7xNhE29bc4NkAQwXE3ZM0ClLDy8IL2quuxS2KuLbul5zU/Bwn3BE
Jtiy7PC1ZwPkWPaLB1a+Ru0YWwY3p5r6/FPtX9VljxS0x6fGwb8ffzFvwnHw
MwC8icGTHhocnsniE5MJJTtQm7lxUbLYpH6MFJbL2vhrDSrCGEWqH2atXxtd
8NS4ZdQnzdziHV2MfEdmGgT67BE+G0b3ct2WLe0hiJeViWu9k8UD+j5J2qal
YzdbaHioB+m+weTN9Jq2vIiFEcUKUrILDZXvur7Kz7wNmfYmkax74HmpSkco
y48s8U8R9+jNHkT+gLpmw/XjKzGkPcwNLWjTjj0yky/51AHJAvrxhmWpYMcS
5L+g1cG7128mP/Ga/SmesMODN1hCq6iracSBqk5RfNA9RNg5+keq2swAw8yd
PIsNFKnT5Cl/WiA6bx1ds9Bre3rpuI0+ahx8fKnCwt4bCvx5+PlksuBsN/5U
bPFbsqS/LEv2bynVZH/tUckO1uesnp9USRlKV5fzrl9iJT6qHWwR7HQPL5aP
aVHbKYxAEWXnuJsZH0qaucIFR6mGhe6iQZJdmy4x/JvtFO52iSjs1FrZLm4v
DFmxW9iuM3uQajF1zVa2mo2P7NDX2GGAZAFEX3EaNiz6BYeXYfiYvSJSKDP/
14L3CfkxKFbTcHH73OC8tmGtDkeyb4Rc+APH3ehNac+2L364ELrc3T/hhuwV
/W74PHH6G8XGjlJmIbOVcfC82mKdDrjxCA8+ZY3Cb8mS+0JzLW4Xj5cUacZx
kpVmveVLl+zcqFKFBcmim6029vC04mvD801asmYPQrs9SBZwSuglsWxM2LEO
ofrjasHv5qkYVMEOX9KJta96lfX5ezZHXv5dOdxTl7vPyyMwJvPy1cunglcd
KpEP67Vy8XfCh/3jgtnPz153jOzGxtTOWxl+obJ9om0ypKSZ0aYY99DgVVko
HyQ70Y3IfeDlH6bdahkdUTHQ2ztkQVLqB+mr/OjbxeP3gY3bxSaS1XdXJqxd
aejPRqhqMvznUQ8VU/xMa3w6i5LVjWndgmT1Zg8CkgWcGrZn2E0ePAYOLb4Y
dpRhpfRKzBovcme4v7+98vuUqD1hUWcK6y0cJesNG7YOisR1SlHC8u1fPVIO
auQP8uM3untsSRL+Ye0UGJudV26aMXR0dHA16o76RzHhrQhtp/jbOJzCRNah
RxZ3WJLUWKKRMfHJmNHk6huWeWc08clUsnpCcTdju7ch3y8iOTbA7KEW7ciT
EZYka7D/fDeXoJx6hQXJmj3IMEgWcFrYLYmdClT/fx4U7BBaec3P1XIt/XcU
NYad4aQSW6UQON9pGp8TCK1K2UuW6qD3lg0bLz4ZLdohnhWGeXsuiRA0q83v
g9+KoeBl5oGPAGxJFuAFINlZy7C8EQw7GbSKipR1r62Pyasbd/Cp7ahI3+m1
JEGktDgqdoxpbdgSbYWhXisypTr0fRNGLjAkZBp+/3lp9I5MSZ/F58a9nfkz
nwhwFCBZJwIkOzvhoiR2clATdviUsTOslF6O9PFcl3izbaz/g6rhWu6VO6YT
ghyNTtX6uK65KjviqKBa/GPYcnefPWmX8wRffLJuQ7ZUbTmMRq8hDAJgDg7P
ZKffMQxgDZDsLESnUvLfsLhjA3/qNYwQWvlvGduXe4V+LVEM4vB2w/qUCkuF
M45H+0JCluL6RX518/ZP/yeGyTG1gE04lCw+agfJOgUg2dkGvSRWVfkD15dj
GfwewgPDEpqnt8oaTYNUQvWkMH7j3DWHLwuzwlbtFzy1vA/s4IRendaQ3IQT
rhZ6hZybOK8YYBrGJEtou5oet080RAkfBIBknQKQ7KyCJ00nbNIhf4k8y4OS
WGJAfOZDnGVEaHqfv1RRSbzal9KL+7xcN52oeD5B+8Spd3YyRVWXExGWdbfT
cAHY8u52HAQDzMGIZNE/0cGhTuF+w/k7ZkQlvXZJ/IL+Y4YlC0njTgFIdlbB
k6YTE8C7cs4Bccq23Abd84qkbf5rVngFnsaNWw0MPm9ssxZv4GDccZLVqZ4K
j/ijAPa8GO8PW59UC7BDVVVVXGysgx+UrEaZQzbmXbMrPjkt6+KVQuGVrHC/
sXxyAzBM1okAyc4e+NN0whq4cSIf6mEJTVv1tYKC0lqFVlmdHJUrEuzentdO
DLSLTgetPyO2FT86ripWb5hdp8MmHw1gF4dli+Wg15kJoWqvLc8JWb37zNc5
6Z8nRu3ZHbIrLPqCePyhP5YsP7LuARuAZGcJqsof+G9Y3jRORGINjc65nBO1
YWno5Yfln3949sLn74Yaeif2S9KC40VdE9zZweNuNXW5YfsyRK2jA4nImp3l
bi6+R0QvnPdAlpzzkhi6bs2Wf6cUGPLHTEE/A5+fvc6Hj1tcMNjV8KTdUu9r
DB6VCMVZzgJIdjZAbzqhUzliSrOj4ZNhkQNa87fvIafcEkpJ+vat53JObvta
8vhSmE9QdPKp6O1HyMaJVqBqex1TO0MM9Pa8lJWkBHksD04vN9QNDdTn7Isr
qH9p1uIJ90Z2gi1E4oUoPigsp0xSnvnhG2EW22jg3h18qt6yQENDAxMdnwhN
Z33lrbJKSb2ss1djYSQx1VORd2crgCVAsjMe/rd1woblxUaxVikTlxWVVlXn
RfuS6buvNOLU1Znld5Ojchs02p7m6jLRQ7nVnF6q8shBpiOGn+Zu8Y/Nr+/u
lxUn+i8kx8Gfif0Qt0c2w2k6KGol6d5JlQMDzYKITZkP1fqB2pzodHE39efT
n1XEDowkPpGT1pePzaBxmefzwZeS8T9x+DACOlE4CyDZmc1Qay0Y1l6I5xVJ
QSsDduwKWOG++F/xyYcCPV73JDOdNGM5xhPi0GQnnaruxxjDLHg3j62pZa3q
/ubbl1Njoi23R6Y6KPJcTCQjjYIP/v/2zsapqSvv438KHWIZ69hFQUbHtjIw
rFYeYJFZGCzzoH2oUh2BrhV0BLRAu4LdBR4X0GJbUButoA3aBcuLRiXaaIlr
YuERqIiCQcGElxgi3Hh5TnLC4SaB8JZwz735feZOB9OQ3Fxuzvf83rdkn6/I
/HOuJTvaMj90d/XTqdN231B7z+IJkbU0z488rhlF9xpj6O9uUykarqgH7P/e
2MyHbplCAURWxNDf1okihUUa2yWNx2Mr2RGrhzZ4augezjF2qbJ46XObx3uk
OXddonVMtvFp49dxqzYkn7zbP8MUADJEj4bLOAfQ/uFMcoBkeUL+edn58n0x
0UV3Setn3MvIfVnZHsQTIsv216b9xXE+nQNQJCssQGTFCijsfLGI7DsHG3Q4
4cRsUJ+IWxZfqrZNzOxU3NPOoHETnGF8iwmTsQMtP569hd+FM1x7YsLar3i5
z8qILFnHdPkwwnEU6x+r72k6+02s2dB1Q5qfnpyUllup7ONcWPRZhDKYzwMi
y/TLj0Ss8g/f83VlVa1cqe7o1Zucbjq8oRLAnxuwAiIrSoSisMju4385xYMv
LT/01KVujCi4pbcta8aOiu3vptT2zyGLF4nsoncL7Kj65NbYYy19+iEkOsiS
XRNmm6qJTlHxZcjBkhM7NwTaFeraUD94LAC7xuKN32IZoOazMjxdOm1SMYb/
W2Ju6HS6jo4ON72YWa8s31984/GD2spvSouPZKYmbLaOqAudnJ9uY9Q0BvU7
wgJEVnxwFdb4G41uN5wgREcuMVrc/hkVecSqXCyjbcoLD9sx2VjJ3Fa+6b0S
zdyaKrlJGgyaktignWdaDUbttSMRy8KS/3lGVlWWHp6IbGrW1N1w9O+nW6cf
WUs5FkdBePEdvRHZsOV7Ni4PTitXPHE207wVs77l9JfHFX9cPfSuz1t+H8R/
nnv8XF3jjZstfwzZVciS1GJK/D/ArIDIigyuwtLcOBHJKwUKi5b+Z3UpUZ/s
SVgbztVZ/8CYzPKqCxWZcdGW9NelPSOD5pTNYjXoW+vKslJ37Mk7JcjuE1M9
eNkR1amMhDDiFmB0rbIv4wI+rmw38nyOtMGa9N2/36r/sbzg4I4PAyU+/tuq
urk7ERhyJzhAZMUE5QqLDVi63Fzsc8Xxcyr9E3nuluU2nUUy16WoOpGXebjo
rF240BNvz/TfLD50ttUh0sr0Ws4neK9UmEbrJEZNSbTfntp+hmEMDy/lbg30
jc6W/a63XVLzq8ERAe4cpnB/TJYd7qg9lh4bHPThztxKRY9pzND3tM/+3oCs
J8EBIisaKFfYXu1LXJpBaeIo1rVJnZ0LTdfVizfGsd0alHis2eF98QCCgAwX
jS/ohzUNvdS3VX+aaJl0/8bYoziZGrw6JKXSRUBWQLhbZMe1tfvDEo9IZbKa
qhNZMeuCUmRPnfZ40LVYcIDIigP6FRanRFIwvW5m5qOzOHHLPR9nmvc1G9oU
N7qe9zx84mrgmTB43d/yXXKAvzU1mmH6W6TpkX6hxaoZBs0LCHeLrLZuz7ZS
tS2yz478ejR0a3mbXbCCBGShoaKAAJEVAZQrrPrBY6ywlHfJs2DRu/hZ47Du
bwLJ9DYXfbzW5h9mGW19dmhs3rVeYXpT0fnfPH3hd872gGX6bpUlbQiMLajr
GmHFMj/I3SLbU5O0JU/xkp36Z0yRyi6bDgKyQgREVuhQrrC4gFRIFQfMa5PL
OCxW2MX1VjJ0/CzvdEhaZodaK3cHBeyuuHoxLzLehcKilZaK0qcZwb0m1sUV
XONWFrOmbnnRx0EimoHr7t7FTH9D1tqAxNwf6u+o7jafPxQR5mjv44ALBGSF
BYisoKFcYXETJGTGCkZhZwObEosuidUrcvZZBhA4wA53yA5H+L6fLG2baU4S
bp9IZbsGMzMlqThJOzAkhZvTZXraeOZUYzvxEkARCofxoa4HKtWv8gvFqZZe
miuCEwsutQ9zJRb9xfF+tem6mrfTBOYPiKxwoVlhkZVHW0OnxUPaOi36E5n1
DXn7G54zWnlRYmhQePrJqQodV4Pg0TLrzhE/7sSsVxbGJ5/hpkmzhgfSlE2T
Y+6tHbTW7Kt5ats+4IsJemHF0CFNCcITAXzDkktuTttbjDiF6NtfAa4AkRUo
ZLYOhT2dyDAaur2a88MNCssOtckKs7LLLqlfjHVJEzIv3yhJyr72pL/tcm5k
QnGL3nUmkLtH/LgZW5r0TjudtcS4Cz4KCt77wy8VaWusrZitD+OJqELfgN2+
fTvz4EE3vJC+IX39gUtPjCxrGkA3Q/i6+Io255xyXLyD7gE3vCOwhIDIChGa
FRaDlgK0JlDRbsIduMOGfTOiyN+af7lFfjojfOvRWzcqEvPKi7dtl3aMT7Cj
quJN+xpcD/qlv3P+9DrLDrVK94b4bs5u6MHWOrHHhR5EcFviU59sR2JVj22P
xRoVef5x0sf2Wy7wFQsXEFnBMaq5Sq3CEg0SjbxOuEFhWWZo6BVr1jdkbips
GbVOiY3f9PfyoxkVyqajkTHpFVeaq7K35CtdNz/CHnhqLyxraL2QFRf03oYN
vhJHneX4wIk9LoBU89lwj8gyHef2bN7wzsdlyl5rk0mzruHgaqcdF5khKxrX
kPcAIissRppOkvmw49pOvk/HDmxq0enMXAyLa/5vNrTLsqNSpI9G2ZG7xVFx
2bJ7T7trsyKP3278+27ZE0bfWnfyWPHJX6Ydr0M7U5nYw6rCmLCCX0dYltHf
q3S2ZyfBiVs02+Nzxz0iO65tvX75ZGZcoM+K4IT9+Tm7o2LznSu1tyaXQ16x
QAGRFQrsmGm4tpDOCezIPMHT1pAYibJMfqH247heXZm8JmayHodl+pSnvkj6
a1z2udYhVivblT6Li5huBu/khwdlXrN+hJ6apA07ZD34f7C6hox3nO1ZG0hn
qbXH54U7RJY1Kr/eZLlQ46Y+TWNFzn9/sMLvg205FY2aPiNxGJMeFEJ3sHsn
ILKCACmsXvo3rLDoB6oUlvRLRP8VdB6L+xltKQp9P632maVDvqm/U/Owx8Ap
fmX/kCbkK4zCbXxkNnTcutH2SKNo1bMGTUnM8m1nH+Fp40ZF7prkoxeVLibw
AjYs/U9i1k5uSFiT1qK1CcHLt1U9nbx4ZAfL53kCCwVEln64pTpIYZHg8n1G
U5BuTmgdEId54lbMesWRsNhj9VfLU4NXWL5rAbtPTfX8N3U2NnUIe9gby/Rc
TgvYkFypGRm+WxzpH2RpvWuZXhRVeBdih7PBMozV0sc6y+1UzI6+fGnbfpGU
JxFEsb0TEFnKGevWcIthqVJY0uRNZHHYE983ui34xfYrcsP9wg9Vq56Nmp6r
ypOWR1V0vHHPa/MNO95V9WlkzqXr3ycHbPi0qnPM8LCuaH9y0qcZJY1dQgwx
z5NFDm1n9dey16wMjtmVVfDNuZ9P54QHReQ2Odv+uN4cUp6EC4gszXATiQ2K
c3yfzhTIaMVVeyILwpLgshsrfFnD087nk3ksfbIdK/NmdRHj0xCA75193py3
ZXnk/zbf/XbbO1sE22x5gSw2JmttpLk2PLPifEVJzt5tHwZKlu2qfmKX8kTM
WKonawAuAZGlE2SxkkRi2kp1kKpiF7GYek1M2PfQ8Ijrm3316GzK+vT6/tk8
xFjo6U0lZV5q6q7bHN3jndXJG4KSpXcaj0Qsiy9VD/N9ckuHGxKf2EF16cdR
NgP2jclgdNilgBkrAkBkKcRs0JM0J9oSiScmS/ZEFiFCi5hHFZbVt5xKjwu2
9Rh0hftH/LgXZmTw+W9lseuIb9M6lG11RO6V+/9p9fCMe7pYuMiyL+RZ0eFJ
mUWV/751/+b59JjoorsjTlcOzFhxACJLG+PaTm6aExJcvs/IBlrzybIvAE/m
fFiKcbemrluN/9GaZgnHUq+wL5rz4+NL7w0+a8oLD0uu1FhaTLDd1Ylh4bEH
qrumJgRSev5uZRGW7OuB9l8bLlSU5HwW94E1I85nc4Fy0OFJYMaKAxBZquAG
YalKc8JZxKLsm4p7TdBgL+DWUrQq7Gtt87FtAYHBH6yW+G75slk7Ypln9/62
/NM/VWRGbZV2cbYPeNMi+qJOnU53+/btef8a0ysvTAr2DYxIKa5Rv2AmGENf
p1pxr9s+zxy3d6bhtgQWCYgsJXB7TaADqS3fZzQFnlgnPhfxBKdbHSWKUFN7
lxaFZUce31KSPlRsf33GuuRT7QaWNT69dGBtQFp1l8HQfvnozri4lBPNHB84
cQuI725xB8aOil3bS+Tt7VfyQjdly1/M5F7HiYVgxooAEFkaYHTPdN9up7Bf
Imk0IbIsYgwZd0vf5DgKMD+s/MvmLHk//hejKgxcVajCeTns84b09/0ij6lG
HOt0iMJCH/sZ6KlJ2iXtMuoV+VGp/9ay5v6Gfxxu6HWQWtx8UnzFcd4JiCzv
cF3Egxe/oMdFTKw8sTaaQNbr1uRykcWX3QfLvNJ13TzzveK5Je7aX5u2LOqo
UmeVg9ePpZ8ErlodklXPreskjndK3AKeZj4xWcbQ03pLfuNO2++Nh6Pi/vGv
nD+nVT8xTTCPqnfGOUdjcadidDFF+b3zNkBkecTBRWz8jZau6Tq9gZTBgkni
TbzWXr9QN5W/9Fpbe3BtAJ60PtpVlRYUsLP43zeVDd+khh/4+f6VQ8HBydI2
sinEMWUvUVjE8bLjIcHBsz+P0SpLk20z2X0kQXGpyWEr/WJypbILlTkfhXAb
PVkhPV6850qKGxBZvuBmEVPlIkaqiu0RpLMQD/IuWL2qKG557LetJAmHHVAW
xLybeLodPcIOd9QeSwsPCow5fKFtiJ0wG9Tfpu2//Hh8SiO86obJPHhw9qHt
lkrYbSEplXe0RnbijUnbUp0VvXzj5/8oyEpNSs0ub3JojUWG7YoyydA7AZHl
BYPiHJ0uYpLjJL5g0KhpjJ60IvWDx5TaKSZNeez6uNJ7BiKzhntlseuipivk
9HLmILLmkZZj0VH2wWvmSV162PoZxgfjPiToEF8KhNcCIrvEMLpnpNEEVS5i
DM50El+YkmRw0ZDyStMAbrOh7d7/GbjVu6yp/fS2d+KKW/REZi09igPCD8n7
QGa5/HDmDDpcPYPtqt4WuDblbKt+nPuoUZHn/16Jxqm7MxlpB2U7YgJEdilB
kkrklZ6JdUiAsr6qFnHslSTk0JDBhTsMUJPSbFAV5tb0OTTzs4Zfg48o9Nbh
a4Y/Goq+Ol59VWOnFMBcYJm+2+V7Ni7/8IBU9WLyKrOvlQWr46SP7bcs6M6E
fCdRAiK7NJgN+sGLX3C7/VPiIiZZFkiA+D4X94MWK9I2h/ddBOmNzH9KM2sa
ev7SYMm3QSK7q1RttD4yONUOgemqSQkNyb7S/vtP2eEb4vKveMNUHU/BvFBJ
D4Qv25haftvSdpLV3SmI2yrtdGj+RSI1lMYRgIUCIrsEIAOW5Djpvt1OSY5T
5yMt2TnzLkCegLiI+Rc1K7j4Meurap7tFMvonISImM3WRsovVYWfFCnb5LkJ
4R+GhqWcbbWJKctoazPWSCQByWWKJ8KeeesxbluZ23PH9a1ou+IflFj8y89f
O0ZpOY5ieqdCAAsFRNajOERgKTFgdXoDya+gwYPqCegs8qXCSOmT7bD4Kk1P
q1Lfz6pvleUeLc/flCTrs06EiS65N1nAw/Srmu/1240zQFdSlPuxhTGn7GIO
rKGzLv+jQN+EMvUgd9vCdRRTEKYH3AyIrIdAYsqNwNJjwNbU3sUBSvS9FmUG
IxT5TgfL9N+/fOk/lmSmkebc9Z/VaMcnjMqC9/aWn8gu/Fmatj5HrjezuoaM
dZNtnZzo1b7EWkDFVoEC5iuyFtjh7s4XM82zg9tVlIDIegKkp6RNIj0GLNc/
LL4KHQKZWAdGwRSstiEjVOK7vbLdaM1r+iwsqaT+RkVaTGn9j+mptQ9by5Oi
ss4136pIS7Br9U8g1dNIEejxDPDLQkTWCdzBQ6xJEcAEiKy7MRv03CZOeunf
KDFgyWxK9F0Wt/qgvYSItxALgh1vP/1x6nc//TPu3WSZlrU2/79+rrTk/J2+
V32yfTtkPRPMC/Wl74otjziOu0WSSoILYGpxWbzIklbPkFEsYkBk3Qg3wQn9
QEMNLPrmEp8wWiFF6R+mDbRy0lCNawdrHBoaY/XXstdsdJj8wqhKUpHIzgzu
QSTK6ulF0mtlwb9Oss2h9YS4AZF1Cw7+4cGLX9AwbB2HX8W9SUYSQEfBqQ26
G8+anlalvBtZph6dkllGVZZeO8sKjyRAxLcQX5BQLDhexA2I7CJxKIBFUjvW
reH7pGzzZchXWKwrJFY0SnIykRKRsYBU6b4dlq6JwclVj6Zyb8wMAxU6Sw7J
foeaHdEDIrtg2DHTSNNJIq/YP8x7ghNZ6nGOCg3q4wloK/Llpq/QvaUx6xVH
QtZYcon5PhPBs+CYLLlb0FeV7rsFcAMgsgsAl+eQ8Cs6kNry7h9GuoNLV/D2
WKxRHociX0p2Eeg0kOjTa8ByYXvl3/7onOAEzJeFiSw32QnC3N4AiOx8MbUr
ufI6ePEL3vOHvURe8RgdcRf5AgJiASJLFBYdoLBeAojs3EHyys1uoiT8iiDj
X0WsOyTKLO4iX15ouq6GBX8BzFdkuQpLZV4c4BFAZOeCs7yiR/g9JaSnJBYp
+toc4h+GTgjuhUTwIf1mAcyndzEorPcCIusaB3mlIbsJfUNJFquXKA4yXZEK
8G5tqR88RtY0DXlWi0enN5ASEnRtKQltixVQWG8GRHYmaJNXpKfcwhxxO4dp
gxv1pq7RxPzB/SVwaFsYyVpCBhTWywGRdQDJKIXyShJ+cEqtiOUVW1j0fEAy
bkBkGxt0kSG0vUh+OHMGHa6fQ6p1QGG9FhBZgnNhDu/yivbAxKcn7rrXCXsH
Jj3N0tEOB21vxCSvgLuYNfGJtP9CtxAorNcCIjth7drEbSuBU5tGNVd5j72S
b6iIuzZN2MsrhR9WxBsbYDG4EFnuVAWoh/VyvFxkx7o13KaIvGcOo/UcSQxe
1dH3FBlQ4t4AI/OQyOvW5HLa5BUAXDCTyJLBuzByEZjwVpHFnmFu4JX3thLq
B4/J1lcEqTWzgj4viXWiFYnfvQRS9qbratHoO/ogYDotAdOKLGlKDBVnAMbb
RBbJqINneOBfETw2RUS7XCSpJKkJV4iI/otJrFe0z+dXXnHUG19/EdTmkBw5
7ynvogdujhwlLbUBGvASkUUaOqq56mC68hh4xfU4pJM/3vR6T2oN+qS850hz
TWkcCBa0W48b1wYbytPodLrjZcfx4rl7166Ojg4kqWSrDLN3AS6iF1lTu3K4
tpCrrbifP1+eYW5GBDHlxL0eog9IoX5htx7vprS7ID3nIa7taUZHR+Pj4vDK
SQ6/tZ/BcFhgWsQqstgtzK3H4dd0RXYT2dxuTS5Hh7SqmULpcSNcTziFK4/I
ApdozyCO3QL91MhkDgqLjmXLgsCABaZFZCLL6J4ZFOcc3MI46sqL6Yq0lYT8
0A/4QXFrK22ecDDrAPeSefCgs8iKaRUF3Is4bo9ptRUdw7WFpnblEpuuaFXn
ait24nlDyJWbIM27J5z8CbwhVRtYMtD9HL/1f0Bkgbkj6NsDGafTaqte+rdR
zdUlThhG9inSFK7KYG0VfW9YnHLDTZDm0RPOzRYWx1w8dCWbrqtFfxfRDwl/
vL1mh7PCLmB6O+AlCE5kkVk61q1xjrfypa0Eoq1YZURvt3LBNSM0WOtIjMSx
vcHaSrzu9PSZ9EK4LVPw8f4H/8VV2JDg4N7eXr5PE6AUoYgso3uGBNShOxNf
2kqMVm41HPoain74NY63OosXVZ9a0NqK4TY0QDqL/inuOD6dOGcXcMdzNDY2
4mYUx8uO63Q6h99lVIWBUyocXao28vEJACqgWWTxQBxktDo7hJc+3oq/cUhJ
ScM0cXgj5wLSUPQxyWqDrgCPJ4M0VFrVLAIldQG64KCtPIJNVxJ0IL6Ruf85
LCK7qlDFePQ0AWFAm8hib7BBcQ7Zp87CitQWaS56wtKcDBZWtKQ77GazvqoW
vdGKrXWHpQZdB3Q1lv6DY98p6R0B7lPAE6AbG93e3F206yZsLgYEgMgCBBpE
1mzQI5t0JmHFRuuo5iqje7YEJ4O+aOQ7hTa0XGFF1hzvMcclwNlaR4rGb0MJ
MjIMnRgOtgq3MAedvDfcRQJiWm2dS+nZLCJL3MXvlWjMnjl1QAjwJbLj2k6k
m0g9p3UF43b9xt9+XoLiVqQdaN1DyzjXUCJfLi8RVi54taFqU4HNauH6TtFl
5N5gYIbTAC7yctZWvKWcyy4OLFlgLiyZyCI7FJur0yYvLaWwclWV6wvFhhL6
iok7Fubw8UmLDMJSeoPRe3Ed8pRounvhZjF5YeY5VWA/FXc7vQBtJYDIAnPB
QyLLjpmwrTrSdNKFqg78KwIZs54WVrSmoa8PaTrHzcZHKoNNNkF7IF2DFhYX
mwoeezU4GBFIZ0WpPtgbif4EIt650QwWVlwL4CCsJBSysO/+D2fOoGPa/wUi
CxDcJbJIJZGhiuQSSepMHmBiriJ7dqxb46GiGyypWFO4yzhaw/ET8P/1hkWP
G1N23lQswcd33R8YSQ9a4uhxSs8L4hAQ/V0kOHDLNYcAkMN2ztP+BPsSnqDU
WuHd4YC7WIDIMrpnSFKRnmLfr2tJRbYqVlUkwW7PXEJfE7wFRSu5s5lGEpZw
BasQV3IXoA+OPhFeTNCKgXcUDp8Rrf9oPUEfHwvZ0sgBiT+S2O4SvOmS4bx0
e0MNlyDA8xOdY6xcYRWxwwqglrmI7Kjm6lz0lLSGIB5gjzaIwGsdlhX0xcHO
T/Qg+iphSRW3ieG8S0d7DBqqikgmMLaaRdY6GMcacOzeS/whQgE3+3LYYHs0
EnTbiideGRATcxFZ16lKI00nkaSOdWuWpsSGgBNmvHaJQ58dHXgNocpIxya2
WO0Fr73f6Af9afCmDq0MS7PbdJH4BACEuYgsskyx1xebqKZ2JbJSeZnKCgAA
QAkgssBcoKEZBQAAAACIEhBZAAAAAPAQILIAAAAA4CGcpw/DAQcccMABB+UH
3+I5V3i/UHDAAQcccMAx34Nv8QQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAr4dR
Fa1y6iW+qlDF8Hxeb3quHcvcmVCuNvN8IgAAAACwUNh+zZVLNbKLlZlREp8V
4Znf1chkNVfUAyzP58WoCgN93grkX+0BAAAAYJEwfbIUic/qHbIe6z/Nhraq
jA9XIqvWLzjtZEs/O2FQFW6W+G75/PDOEN+3JL6RGecbfinZZfl51UdH5b2M
TRaDPskvzo4Jsv7iXmnrkEWr2aG2qoPh6Jk+K0L2fK8aQM+1vtqf0ssr9ob4
bv666vxh669IfCRBiSXKfmaiT7ZjyrJOqelRWsxtm33dU5O02vJgH2N9x9DM
b0rTgldY5HiaNwIAAAAA3rETWVZ/LXvNipD0M80t1ypTgiVrcuT6IYssIhFM
Kqlv/jEr+G2Jz9voCTdvnslAPy870KA3Y9tT4hudff66sr5kR4DE+ouv9fKc
tT6bMqTXW25WpK15e23WNT1rFVmLXzo2Pf87+f36oqzyOoWyWbo/xEeyPl9p
ZAYent3n7/OW/z7pXVXngKllZpFFkhr0131HTsi7BqZ5I76vKwAAAADYiay5
v3avn09CZYcJ6a1RkefvE5qreGKVxY0FyuGJieE7+Rvtf95cpDJgyXs3Uz5s
eUGDpiRG4rMhS36/bk+QJKqi4w16UK/ICZWszFMYR6yvti6t9pmdDL5WFvzp
Lcmfy9vM9u5iHDieQWSXp9T2W15FO90bgcoCAAAAvMMV2Ukzc+pAj7dZH7SI
6eQTHH+2j6JOvmBVlVNiFdLHQc4roOf2Npd+FrFKwk27mrvI2j3H8Y3AYwwA
AADwDldkTR0VCRKfyFzZryob9zsGdHMUWf8chdHygtiSDc29oaiMWiEJza1p
mXwxVecAw32FV63lH/n5bM6qaukZvEvEdBoB/VPBndfsBNtdneg/jci+eTjd
G4ElCwAAAPAOV2TZ8fbKeF9JUFKhTK5UKa/V/KjoeTO9sDqLrCRg+1GZLSbr
F1mmHn3VUbHdz+f9HYUX5MqWO/JLlheze4UXDfvWS3yic2XNzecPRfjaRPZN
R0W0z1t+sYX1ygc9pj7rczZlSK/exM9xFtkJ43RvBAAAAAC845Bd/FrbXJYc
vAJn/AZGlapsUdTZRXb5lu1Jll+UBMZ+eal92GJJMr3NOA/Z8mqB0SUtRrtX
YE0dP1kzmSVBifs+3+JvcwszvfKCj6yZVHvr+pnxrsv7rc8JjM0s2LtpOpGd
9o0AAAAAQAxAZSsAAAAAeAgQWQAAAADwECCyAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAADQz/8DPgL6mA==
    "], {{0, 286.5}, {473.25, 0}}, {0, 255},
    ColorFunction->RGBColor,
    ImageResolution->96],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{473.25, 286.5},
  PlotRange->{{0, 473.25}, {0, 286.5}}]], "Text",
 CellChangeTimes->{3.8288668363864946`*^9},
 TextAlignment->Center,
 CellID->372869032,ExpressionUUID->"0860729b-9a4f-4465-ad40-9746e1041db7"],

Cell[TextData[{
 StyleBox["Figure 1.",
  FontWeight->"Bold"],
 " Typical phase diagram for a multi-component natural gas mixture [1]"
}], "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}, {3.828866863361374*^9, 3.8288668844330378`*^9}},
 TextAlignment->Center,
 CellID->209083968,ExpressionUUID->"5b73662e-2826-4359-92b2-67e19b9624af"],

Cell[TextData[{
 "Of note, is the fact that the saturated liquid curve (bubble point curve) \
and the saturated vapor curve (dew point curve) do not overlap.  \
Additionally, the critical point is usually not at the maximum pressure on \
the saturation curves (the ",
 StyleBox["Cricondenbar",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ") or the maximum temperature (the ",
 StyleBox["Cricondentherm",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ").  Also of note is the retrograde region where vaporization/condensation \
occurs in the opposite direction with increasing pressure/temperature than it \
does in the remainder of the two-phase region.  Note also that the Critical \
Point can occur to the left (lower temperature) of the Cricondenbar, as it \
does in Figure 1, or in between the Cricondenbar and Cricondentherm \
temperatures, depending on the mixture components and concentration."
}], "Text",
 CellChangeTimes->{{3.8288689434931345`*^9, 3.828868952850112*^9}, {
  3.828870408793182*^9, 3.8288705227774353`*^9}, {3.8288705544816723`*^9, 
  3.8288706338265657`*^9}, {3.828870673578266*^9, 3.828870748026244*^9}, {
  3.8288708281140947`*^9, 3.828870913290398*^9}, {3.8288719749381657`*^9, 
  3.828871976913911*^9}},
 CellID->231316985,ExpressionUUID->"cbaeae37-1d96-4721-91d1-da12b3a8858b"],

Cell[CellGroupData[{

Cell["Calling SATSPLN (saturation spline)", "Subsection",
 CellChangeTimes->{{3.828871544162876*^9, 3.8288715631221867`*^9}, {
  3.8288848593808126`*^9, 3.82888486094962*^9}},
 CellID->567477762,ExpressionUUID->"999d8f87-3401-430f-9588-44ffcacdb7d1"],

Cell[TextData[{
 "Because this situation is so complex, especially near the critical point \
(retrograde region) and for increasing numbers of components beyond a binary \
mixture, it is a generally a good idea to call ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["satspln",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satspln"]], "InlineFormula",
  ExpressionUUID->"baede7c4-ecd9-4b3b-9d1f-cb2bb7ce133d"],
 " when mixtures are loaded, which calls the underlying SATSPLN function in \
REFPROP.  SATSPLN calculates algebraic spline curves through the saturated \
liquid and saturated vapor curves at a specific mixture composition and uses \
these splines to make state-point phase determinations, rather than applying \
mixing rules for every state-point determination."
}], "Text",
 CellChangeTimes->{{3.8288714116591635`*^9, 3.8288714276832933`*^9}, {
  3.828871486772315*^9, 3.828871490947152*^9}, {3.828871575074232*^9, 
  3.8288717095776267`*^9}, {3.828872018804883*^9, 3.8288721249540863`*^9}, {
  3.8313128712689*^9, 3.8313128808293247`*^9}, {3.83131292198923*^9, 
  3.831312957692733*^9}},
 CellID->311551272,ExpressionUUID->"39dcbe87-1f70-4187-950d-aa8c1a25ab86"],

Cell[CellGroupData[{

Cell["Calculate the saturation spline curves", "MathCaption",
 CellChangeTimes->{{3.828872184098957*^9, 3.8288721911311555`*^9}},
 CellID->29506500,ExpressionUUID->"f00c243f-35cd-4743-b1a7-87f4efe11633"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"satspln", "[", 
  SubscriptBox["z", "Air3"], "]"}]], "Input",
 CellChangeTimes->{{3.828872196240495*^9, 3.82887222144414*^9}},
 CellLabel->"In[16]:=",
 CellID->494723839,ExpressionUUID->"eba0f016-5c21-492b-9fd8-ec449117689e"],

Cell[BoxData[
 TemplateBox[{
  "satspln", "splines", 
   "\"INFO: Successfully created mixture phase boundary splines.\"", 2, 16, 2,
    33608697876157700978, "Local", "RefpropLink`satspln"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8288722359942117`*^9, 3.8292807546683865`*^9, 
  3.8292808485912485`*^9},
 CellLabel->"During evaluation of In[16]:=",
 CellID->59744434,ExpressionUUID->"fef36660-87db-4fab-8a41-a601f3004d13"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "The return message (which can be suppressed by ending the call with a \
semicolon) indicates that the spline curves were successfully created.  The \
spline curves created are only valid at the specific composition, passed to \
the ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["satspln",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satspln"]], "InlineFormula",
  ExpressionUUID->"7830fdfc-d040-4669-9d8d-fd6e18fcf557"],
 " routine.  If the composition changes appreciably, ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["satspln",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satspln"]], "InlineFormula",
  ExpressionUUID->"6ac69205-f035-444f-b0a9-a5ad899455d8"],
 " should be called again with the new composition.  For minor changes in \
composition, it may not be necessary, especially if thousands of calls are to \
be made with minor variations in composition."
}], "Text",
 CellChangeTimes->{{3.8288722513312063`*^9, 3.8288724124664273`*^9}, {
  3.828872450370103*^9, 3.8288725872899947`*^9}, {3.82887638559571*^9, 
  3.828876506195277*^9}, {3.8313129968769245`*^9, 3.831313011981522*^9}, {
  3.831313057949603*^9, 3.8313130598445005`*^9}},
 CellID->139545294,ExpressionUUID->"3032d8fc-eb2b-45df-aa24-66049c275407"],

Cell["\<\
In addition to the spline curves, the mixture critical point, cricondenbar, \
and cricondentherm are also calculated and these points can be retrieved as \
follows.\
\>", "Text",
 CellChangeTimes->{3.828872442226838*^9},
 CellID->154180583,ExpressionUUID->"a467ecec-0117-4f43-875e-8f59c8cc60cf"],

Cell[CellGroupData[{

Cell[TextData[{
 "Retrieve the mixture critical point values with ",
 Cell[BoxData[
  ButtonBox["critp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Critp"]], "InlineFormula",
  ExpressionUUID->"5edde811-2dc3-48c1-936b-c2c9edff9f81"],
 "."
}], "MathCaption",
 CellChangeTimes->{{3.828872397011747*^9, 3.8288724179856725`*^9}, {
  3.8288765146347156`*^9, 3.828876550379122*^9}, {3.828877250354683*^9, 
  3.8288772584141345`*^9}, {3.8288773128207016`*^9, 3.8288773137960653`*^9}},
 CellID->238846190,ExpressionUUID->"21c59c1d-5260-44ae-b866-4a8f5b011ed3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"critp", "[", 
  SubscriptBox["z", "Air3"], "]"}]], "Input",
 CellChangeTimes->{{3.828876553580575*^9, 3.8288765671871843`*^9}},
 CellLabel->"In[17]:=",
 CellID->409295402,ExpressionUUID->"8ead2365-5b99-4921-b066-24d3d34ae1e2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"132.83441602479704`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{
     "3852.1447361232604`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(D\\), \\(C\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"11.897789330302354`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8288765692417116`*^9, 3.8292806271991673`*^9, 
  3.829280761136067*^9, 3.8292808526264873`*^9},
 CellLabel->"Out[17]=",
 CellID->56783416,ExpressionUUID->"fe84d20d-11d4-40a7-aa55-a59c101ea71a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Retrieve the mixture cricondenbar values with ",
 Cell[BoxData[
  ButtonBox["maxp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Maxp"]], "InlineFormula",
  ExpressionUUID->"72c56c6b-f4cc-487c-a835-82faeb3f3afe"],
 "."
}], "MathCaption",
 CellChangeTimes->{{3.828872397011747*^9, 3.8288724179856725`*^9}, {
  3.8288765146347156`*^9, 3.828876550379122*^9}, {3.8288765912189317`*^9, 
  3.8288766045094194`*^9}, {3.8288772622189903`*^9, 3.8288773068436823`*^9}},
 CellID->425116522,ExpressionUUID->"83aa7e9d-dc03-4cca-b30c-16321661d2af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"maxp", "[", 
  SubscriptBox["z", "Air3"], "]"}]], "Input",
 CellChangeTimes->{{3.828876553580575*^9, 3.8288765671871843`*^9}, {
  3.8288766117470765`*^9, 3.828876614059892*^9}},
 CellLabel->"In[18]:=",
 CellID->21873860,ExpressionUUID->"77d77289-daa9-48fa-b467-40486277b766"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(maxP\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"132.86039055280747`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(maxP\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{
     "3853.184264600626`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(D\\), \\(maxP\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"11.591974512477163`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8288765692417116`*^9, 3.828876619970093*^9, {3.8292807399457197`*^9, 
   3.8292807654385624`*^9}, 3.8292808660904617`*^9},
 CellLabel->"Out[18]=",
 CellID->35467492,ExpressionUUID->"63c26a39-9857-4f38-ab6f-03dbead7afc2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Retrieve the mixture cricondentherm values with ",
 Cell[BoxData[
  ButtonBox["maxt",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Maxt"]], "InlineFormula",
  ExpressionUUID->"ef945826-daf2-4e75-899b-0a46cc779a51"],
 "."
}], "MathCaption",
 CellChangeTimes->{{3.828872397011747*^9, 3.8288724179856725`*^9}, {
  3.8288765146347156`*^9, 3.828876550379122*^9}, {3.828876651242482*^9, 
  3.8288766633470917`*^9}, {3.8288772829734726`*^9, 3.8288773005405064`*^9}},
 CellID->200205726,ExpressionUUID->"55e1cfe1-b99c-4860-a764-1e86bfcc00f4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"maxt", "[", 
  SubscriptBox["z", "Air3"], "]"}]], "Input",
 CellChangeTimes->{{3.828876553580575*^9, 3.8288765671871843`*^9}, {
  3.8288766698916225`*^9, 3.828876670379321*^9}},
 CellLabel->"In[19]:=",
 CellID->43326131,ExpressionUUID->"cc6fe76c-c115-41cd-83b5-a5f545e13951"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(maxT\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"132.8774772844353`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(maxT\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{
     "3850.211460593004`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(D\\), \\(maxT\\)]\\)\"\>", "\[Rule]", 
    TemplateBox[{"11.0853778957336`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8288765692417116`*^9, 3.828876673807127*^9, {3.8292807492608156`*^9, 
   3.829280768992094*^9}, 3.829280869778602*^9},
 CellLabel->"Out[19]=",
 CellID->125432604,ExpressionUUID->"b603a3ef-b299-4112-8fb4-021b6348e87b"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Notice that for cryogenic air, these three values are all within 0.1 K and \
a few kPa of each other, and need not be a concern, unless working ",
 StyleBox["very",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " close to the critical point.  There is, however ~4% variation in the molar \
density between these three points.  Also notice that that the critical point \
is just left of the cricondenbar (slightly lower temperature and pressure).   \
Calculating properties in the vicinity of these points can result in \
convergence errors because the root solutions become multi-valued."
}], "Text",
 CellChangeTimes->{{3.8288767006444073`*^9, 3.8288769802987347`*^9}, {
  3.828877086875783*^9, 3.8288772233478856`*^9}},
 CellID->157606356,ExpressionUUID->"3169a8be-afab-4138-aa43-dfdfc1d7d29c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculating Points on the Saturation Curves", "Subsection",
 CellChangeTimes->{{3.8288773427636194`*^9, 3.828877360035474*^9}},
 CellID->621187301,ExpressionUUID->"248991fb-b258-4bb3-a293-f0f73ac4fcc7"],

Cell[TextData[{
 "For multi-component mixtures, the parameter ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "eed8ad09-92a7-4814-b6f3-2b067fc3e4b8"],
 " specifies the molar composition of the mixture in either the vapor or the \
liquid phase as flagged by ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "443313b2-872f-4fba-a979-3b4da3fc1052"],
 " (1 = liquid; 2= vapor).  To get the results on the vapor and liquid \
saturation curves, the function must be called twice; once with  ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "044f8ece-a8b1-42fb-96bc-86266d0dcc21"],
 " =1 (the default) and once with  ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "c91739a4-6783-463f-b0ec-350c81f8a639"],
 " = 2."
}], "Text",
 CellChangeTimes->{
  3.8225936434148417`*^9, {3.822593759986809*^9, 3.822593794418743*^9}, {
   3.8225990675658903`*^9, 3.8225990924020305`*^9}, {3.8226020956208773`*^9, 
   3.82260217746697*^9}, {3.8226054806402273`*^9, 3.822605536984524*^9}, {
   3.8226055756660895`*^9, 3.822605661737873*^9}, {3.823151993587532*^9, 
   3.8231520321145124`*^9}, {3.8231520646913834`*^9, 3.823152075467557*^9}, {
   3.823153378050606*^9, 3.823153565890191*^9}, {3.823156692913319*^9, 
   3.8231566963830585`*^9}, {3.8231713864180202`*^9, 
   3.8231713940576086`*^9}, {3.823171424161091*^9, 3.823171485769809*^9}, {
   3.8288773806194353`*^9, 3.8288773836194105`*^9}},
 CellID->5091374,ExpressionUUID->"b7fa4aba-bfc1-4d5c-9c77-b485f25ada53"],

Cell[TextData[{
 "Note that ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["sath",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Sath"]], "InlineFormula",
  ExpressionUUID->"0c583c34-d063-49c8-a9ea-b8969d13a4cc"],
 " and ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["sats",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Sats"]], "InlineFormula",
  ExpressionUUID->"b59cd28e-0104-4b29-b0fe-61957c78a356"],
 " can have multiple roots along the vapor saturation curve, depending on the \
input state point location and the fluid.  These roots return an additional \
phase flag that identifies the phase of the returned roots, following the \
same convention as ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "4a9c2798-069d-43a9-80bc-9a20a3839e2e"],
 "."
}], "Text",
 CellChangeTimes->{{3.8247439744196124`*^9, 3.824744219647503*^9}, {
  3.8247593828587155`*^9, 3.824759429852101*^9}, {3.8247594653392134`*^9, 
  3.824759487453085*^9}, {3.8313131713013787`*^9, 3.8313131719576273`*^9}},
 CellID->751738544,ExpressionUUID->"3cfda1a3-8b67-4bda-9962-47d1eea3fe3c"],

Cell[CellGroupData[{

Cell["\<\
Calculate the saturated vapor and liquid pressure half way to the critical \
point\
\>", "MathCaption",
 CellChangeTimes->{{3.8231701691403666`*^9, 3.8231701978196297`*^9}, {
  3.82317039680244*^9, 3.823170415690919*^9}, {3.8288774864025908`*^9, 
  3.828877539018943*^9}, {3.8288778480826097`*^9, 3.828877856115162*^9}},
 CellID->422065167,ExpressionUUID->"00e45bb5-bbe2-4735-b3d5-816a0e029345"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tmin", "=", 
   RowBox[{
    RowBox[{"limits", "[", 
     SubscriptBox["z", "Air3"], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tmax", "=", 
   RowBox[{
    RowBox[{"critp", "[", 
     SubscriptBox["z", "Air3"], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"0.5", 
    RowBox[{"(", 
     RowBox[{"Tmin", "+", "Tmax"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["kph", "L"], "=", "1"}], ";", 
  RowBox[{
   SubscriptBox["kph", "V"], "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"satt", "[", 
  RowBox[{"T", ",", 
   SubscriptBox["z", "Air3"], ",", 
   SubscriptBox["kph", "V"]}], "]"}]}], "Input",
 CellChangeTimes->{{3.823170430774545*^9, 3.823170474995268*^9}, {
   3.823170552186833*^9, 3.8231706770338764`*^9}, {3.8231714925945225`*^9, 
   3.8231714962816887`*^9}, {3.8288775441801434`*^9, 
   3.8288776225875177`*^9}, {3.8288778097959986`*^9, 
   3.8288778255399113`*^9}, {3.8288849072298837`*^9, 3.828884926086469*^9}, 
   3.828884958366166*^9},
 CellLabel->"In[40]:=",
 CellID->80172452,ExpressionUUID->"c523dd96-ce36-482e-9340-f5892fe5547a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Psat\"\>", "\[Rule]", 
    TemplateBox[{
     "356.561713393552`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dliq\"\>", "\[Rule]", 
    TemplateBox[{"29.68882474737002`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dvap\"\>", "\[Rule]", 
    TemplateBox[{"0.5018740437131025`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"xliq\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "0.5566262848811518`", ",", "0.013832196718349454`", ",", 
      "0.4295415184004987`"}], "}"}]}], ",", 
   RowBox[{"\<\"xvap\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.7812`", ",", "0.0092`", ",", "0.2096`"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8231706812855043`*^9, 3.8231714976370587`*^9, 3.823178436580374*^9, 
   3.823184207369147*^9, 3.827043799013522*^9, {3.828884887321124*^9, 
   3.828884959820279*^9}},
 CellLabel->"Out[44]=",
 CellID->46555039,ExpressionUUID->"0889d62c-4216-4054-8dfc-971dac2c2b5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"satt", "[", 
  RowBox[{"T", ",", 
   SubscriptBox["z", "Air3"], ",", 
   SubscriptBox["kph", "L"]}], "]"}]], "Input",
 CellChangeTimes->{{3.8231713012981853`*^9, 3.8231713029378004`*^9}, {
  3.828884975380678*^9, 3.828884978789563*^9}},
 CellLabel->"In[45]:=",
 CellID->266881938,ExpressionUUID->"df3ed6ef-2fde-490c-80f6-a1915ffe0cac"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Psat\"\>", "\[Rule]", 
    TemplateBox[{
     "433.0028856241009`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dliq\"\>", "\[Rule]", 
    TemplateBox[{"27.687708308285803`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dvap\"\>", "\[Rule]", 
    TemplateBox[{"0.6229951573286049`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"xliq\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.7812`", ",", "0.0092`", ",", "0.2096`"}], "}"}]}], ",", 
   RowBox[{"\<\"xvap\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "0.9044232092418518`", ",", "0.005269977414167015`", ",", 
      "0.0903068133439812`"}], "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8231713042492933`*^9, 3.823171501346136*^9, 
  3.8231784398795853`*^9, 3.8231842110373306`*^9, 3.8270438036122265`*^9, 
  3.8288849822592864`*^9},
 CellLabel->"Out[45]=",
 CellID->98172478,ExpressionUUID->"eec90641-10dd-4f7d-a1df-e6d221069758"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Ideally, we'd like to extract the pressure and the relevant phase density.\
\[LineSeparator](",
 StyleBox["For vapor, extract the 1st and 3rd element rows, 1 to 3 by \
increments of 2;\[LineSeparator] for liquid, the 1st and 2nd element rows, 1 \
to 2 by increments of 1.",
  FontSlant->"Italic"],
 ")"
}], "MathCaption",
 CellChangeTimes->{{3.823170732284101*^9, 3.8231707687795124`*^9}, {
  3.8231761349900913`*^9, 3.8231761741174383`*^9}, {3.8270440611885185`*^9, 
  3.827044131532463*^9}},
 CellID->20008703,ExpressionUUID->"91ead16e-5326-496b-9382-47ba68bc1830"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["Psat", "V"], ",", 
    SubscriptBox["Dsat", "V"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"satt", "[", 
    RowBox[{"T", ",", 
     SubscriptBox["z", "Air3"], ",", 
     SubscriptBox["kph", "V"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "3", ";;", "2"}], ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8231707743426123`*^9, 3.823170826626787*^9}, {
  3.8231709095868936`*^9, 3.8231709168424883`*^9}, {3.823171187684064*^9, 
  3.823171213210791*^9}, {3.8288850029250355`*^9, 3.8288850083166213`*^9}},
 CellLabel->"In[46]:=",
 CellID->191923330,ExpressionUUID->"5b928ed6-c5ca-4cd2-9b2f-6565b23928ae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "356.561713393552`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{"0.5018740437131025`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.823171215379966*^9, 3.8231715081598897`*^9, 
  3.823178445747883*^9, 3.8231842156120663`*^9, 3.8270441535316153`*^9, 
  3.8288850148351917`*^9},
 CellLabel->"Out[46]=",
 CellID->148248467,ExpressionUUID->"7b00ff51-494a-4ef6-a35b-67400daedcc5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["Psat", "L"], ",", 
    SubscriptBox["Dsat", "L"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"satt", "[", 
    RowBox[{"T", ",", 
     SubscriptBox["z", "Air3"], ",", 
     SubscriptBox["kph", "L"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "2"}], ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8231712339532833`*^9, 3.82317125328261*^9}, {
  3.82888504143707*^9, 3.828885045638836*^9}},
 CellLabel->"In[47]:=",
 CellID->475198934,ExpressionUUID->"0c5b080e-ae43-4ae0-a916-446640c9fd1d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "433.0028856241009`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{"27.687708308285803`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.823171254313845*^9, 3.8231715195434427`*^9, 
  3.8231784493222933`*^9, 3.823184219617382*^9, 3.827044162913557*^9, 
  3.828885050958613*^9},
 CellLabel->"Out[47]=",
 CellID->446787539,ExpressionUUID->"37c93a48-301f-44c1-8533-0129e72eff42"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Note that the point on the saturated vapor curve is at a lower pressure \
than the point on the saturated liquid curve, as expected.  At a pressure \
between these two values, the mixture will be two-phase, with differing molar \
concentrations in each phase; requiring a call to ",
 Cell[BoxData[
  ButtonBox["tpflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/tpflsh"]], "InlineFormula",
  ExpressionUUID->"3b2dc4c2-dcef-4dae-b9e4-68a191da1685"],
 " to get the vapor/liquid molar densities and mole fractions in each phase \
(see below)."
}], "Text",
 CellChangeTimes->{{3.8231712680112157`*^9, 3.8231712699470415`*^9}, {
  3.8231758860698786`*^9, 3.8231759497256246`*^9}, {3.8231760274207797`*^9, 
  3.823176056621706*^9}, {3.8231762363898773`*^9, 3.8231762647420435`*^9}, {
  3.823176530885082*^9, 3.8231766675814605`*^9}, {3.823176748527953*^9, 
  3.823176773789383*^9}, {3.8231849481338215`*^9, 3.823184950493507*^9}, {
  3.828884810221244*^9, 3.8288848378932605`*^9}, {3.8288850808526907`*^9, 
  3.8288850809474354`*^9}},
 CellID->125930538,ExpressionUUID->"c1b79b20-302a-42ae-86eb-5183a914616e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plotting the Saturation Curves", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.82305710368225*^9, 3.8230571116738462`*^9}, {
  3.8258485872970705`*^9, 3.8258485935613003`*^9}, {3.8288851017079325`*^9, 
  3.828885109053316*^9}},
 CellID->221654001,ExpressionUUID->"3cd8d4b1-1f08-4a1c-b576-bfda0260ae32"],

Cell["\<\
While NIST REFPROP comes with a graphical interface that can make plots, \
phase diagrams can be custom created for fluids and mixtures with great \
control and annotations using the plotting tools available in Mathematica. \
\>", "Text",
 CellChangeTimes->{{3.828945155026059*^9, 3.8289451886820765`*^9}, {
  3.8289453942185583`*^9, 3.828945397562646*^9}, {3.828946677754636*^9, 
  3.828946855506402*^9}},
 CellID->9091236,ExpressionUUID->"86487634-9ab5-486b-9025-f858a0d45b45"],

Cell["\<\
Still using the tertiary-air mixture, plot the saturation curve for this \
fluid using temperatures between the triple point and critical points \
temperatures.\
\>", "Text",
 CellChangeTimes->{
  3.828946873660894*^9, {3.82894692202557*^9, 3.8289469688194513`*^9}, {
   3.8289473598988695`*^9, 3.8289474249060974`*^9}, {3.828949068106207*^9, 
   3.8289490700420313`*^9}},
 CellID->264899,ExpressionUUID->"3a7b232d-d184-4d0f-ad87-83a33d929848"],

Cell[CellGroupData[{

Cell["\<\
Set up plot limits (use maximum of component triple point temperatures)\
\>", "MathCaption",
 CellChangeTimes->{{3.8289471405154085`*^9, 3.828947164050514*^9}, {
  3.828951945459659*^9, 3.828951969275984*^9}},
 CellID->357286776,ExpressionUUID->"470c65e8-17f5-4430-8478-df1acfdc238f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"Tcrit", ",", "Pcrit"}], "}"}], "=", 
  RowBox[{
   RowBox[{"critp", "[", 
    SubscriptBox["z", "Air3"], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "2"}], ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8289472435668917`*^9, 3.8289472739466696`*^9}, {
  3.828947335198908*^9, 3.8289473384671693`*^9}, {3.828952266597072*^9, 
  3.828952294789669*^9}, {3.828952354907967*^9, 3.828952355941205*^9}},
 CellLabel->"In[20]:=",
 CellID->485197918,ExpressionUUID->"61663eee-b685-4b29-8647-5183e829e374"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"132.83441602479704`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{
    "3852.1447361232604`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8289523571758757`*^9, 3.8292809569126706`*^9},
 CellLabel->"Out[20]=",
 CellID->22768657,ExpressionUUID->"bbc54654-087c-47f8-98f6-897b0bec7c60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tmax", "=", 
  RowBox[{
   RowBox[{"maxt", "[", 
    SubscriptBox["z", "Air3"], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.828947433039323*^9, 3.828947482507067*^9}, {
  3.828947760059372*^9, 3.828947762412082*^9}},
 CellLabel->"In[21]:=",
 CellID->265844835,ExpressionUUID->"283d2d25-370b-4a57-86ce-89ea7d86f507"],

Cell[BoxData[
 TemplateBox[{"132.8774772844353`", "\"K\"", "kelvins", "\"Kelvins\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.828947763938002*^9, 3.829280961082494*^9},
 CellLabel->"Out[21]=",
 CellID->100916493,ExpressionUUID->"a8a4c977-82e6-4e42-9e03-d6beb304525f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TminL", "=", 
  RowBox[{"Max", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"info", "[", 
      SubscriptBox["iN", "2"], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{
     RowBox[{"info", "[", 
      SubscriptBox["iO", "2"], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{
     RowBox[{"info", "[", "iAr", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.828947190319254*^9, 3.828947211922496*^9}, {
   3.8289493824447985`*^9, 3.828949382932494*^9}, {3.828949479395626*^9, 
   3.828949535411828*^9}, 3.828951979908558*^9},
 CellLabel->"In[24]:=",
 CellID->416141054,ExpressionUUID->"6dc7b28a-7ea1-478a-bdb7-f34acc815099"],

Cell[BoxData[
 TemplateBox[{"83.8058`", "\"K\"", "kelvins", "\"Kelvins\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8289472217542105`*^9, 3.828949537699711*^9, 
  3.828951985629266*^9, 3.8292809647407417`*^9, 3.8292810003375716`*^9},
 CellLabel->"Out[24]=",
 CellID->506015586,ExpressionUUID->"2208cc4e-23a7-4666-9f00-e65c3dedb1e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Pmin", "=", 
  RowBox[{
   RowBox[{"satt", "[", 
    RowBox[{"TminL", ",", 
     SubscriptBox["z", "Air3"], ",", "1"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8289477820635424`*^9, 3.8289477859631166`*^9}, {
   3.82894781761948*^9, 3.8289478398510427`*^9}, {3.828949565859424*^9, 
   3.8289495880730343`*^9}, 3.8289498376597443`*^9},
 CellLabel->"In[25]:=",
 CellID->20519628,ExpressionUUID->"7a5c1e75-e93b-480c-bcfa-42f42922827a"],

Cell[BoxData[
 TemplateBox[{
  "170.76568458252208`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8289478426565423`*^9, {3.828949572960452*^9, 3.8289495946374865`*^9}, 
   3.8289498398239737`*^9, 3.8289499129384813`*^9, 3.828951852087269*^9, 
   3.82928100837807*^9},
 CellLabel->"Out[25]=",
 CellID->292491601,ExpressionUUID->"da4648e0-fb40-4d15-9980-2c4a3c78c60f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TminV", "=", 
  RowBox[{
   RowBox[{"satp", "[", 
    RowBox[{"Pmin", ",", 
     SubscriptBox["z", "Air3"], ",", "2"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.828947935730728*^9, 3.828947942603355*^9}, {
  3.828949599099554*^9, 3.8289496010174265`*^9}},
 CellLabel->"In[26]:=",
 CellID->157226984,ExpressionUUID->"f93c7e8b-c4bb-40d1-bf2a-40d74bad761b"],

Cell[BoxData[
 TemplateBox[{"86.47192496981381`", "\"K\"", "kelvins", "\"Kelvins\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.828947944164154*^9, 3.8289496118554506`*^9, 
  3.8289498570479183`*^9, 3.8289499171980925`*^9, 3.8289518555031366`*^9, 
  3.829281013534289*^9},
 CellLabel->"Out[26]=",
 CellID->162548345,ExpressionUUID->"486b5783-605a-4565-9d86-368e774b9cbc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Set Up Saturation Curves", "MathCaption",
 CellChangeTimes->{{3.828947985284216*^9, 3.8289479947159996`*^9}},
 CellID->537344581,ExpressionUUID->"67da442e-f5e9-4da5-9c1c-7749e3c508b9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"satVCurve", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"QuantityMagnitude", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"satt", "[", 
         RowBox[{
          RowBox[{"t", "*", "K"}], ",", 
          SubscriptBox["z", "Air3"], ",", "2"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "MPa"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"QuantityMagnitude", "[", "TminV", "]"}], ",", 
       RowBox[{
        RowBox[{"QuantityMagnitude", "[", "Tmax", "]"}], "-", "0.001"}]}], 
      "}"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "Thick", ",", 
         RowBox[{"Dashing", "[", "Medium", "]"}]}], "}"}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", "\"\<Sat. Vapor\>\"", "}"}], ",", 
          RowBox[{"LabelStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Black", ",", "Bold", ",", "14"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"Scaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", " ", "0.8"}], "}"}], "]"}]}], "]"}]}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"satLCurve", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"QuantityMagnitude", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"satt", "[", 
         RowBox[{
          RowBox[{"t", "*", "K"}], ",", 
          SubscriptBox["z", "Air3"], ",", "1"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "MPa"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"QuantityMagnitude", "[", "TminL", "]"}], ",", 
       RowBox[{
        RowBox[{"QuantityMagnitude", "[", "Tcrit", "]"}], "-", "0.001"}]}], 
      "}"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Thick"}], "}"}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", "\"\<Sat. Liquid\>\"", "}"}], ",", 
          RowBox[{"LabelStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Black", ",", "Bold", ",", "14"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"Scaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.2", ",", " ", "0.8"}], "}"}], "]"}]}], "]"}]}]}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.828948050995531*^9, 3.8289480826878242`*^9}, {
   3.8289481225701714`*^9, 3.828948157723187*^9}, {3.828948233532505*^9, 
   3.8289482439636164`*^9}, 3.8289486918122573`*^9, {3.8289487293090076`*^9, 
   3.828948750307865*^9}, {3.828948782659373*^9, 3.828948804068161*^9}, {
   3.8289488530352163`*^9, 3.828948897739694*^9}, {3.8289489779332914`*^9, 
   3.828948987300247*^9}, {3.8289490871742544`*^9, 3.828949117288715*^9}, {
   3.828949168150731*^9, 3.8289491714429283`*^9}, {3.8289495453821716`*^9, 
   3.82894955163546*^9}, {3.828949624140608*^9, 3.82894967475628*^9}, 
   3.828949868140253*^9, {3.82895007737385*^9, 3.8289501592838583`*^9}, {
   3.8289517072295856`*^9, 3.828951761661059*^9}, {3.8289520795342026`*^9, 
   3.828952134788473*^9}},
 CellLabel->"In[27]:=",
 CellID->56059221,ExpressionUUID->"e411f904-a98c-4f0d-b4d5-e9cb8bc9f4fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Add some annotations", "MathCaption",
 CellChangeTimes->{{3.8289520213577385`*^9, 3.8289520308383913`*^9}},
 CellID->451204585,ExpressionUUID->"9d71ff6a-fed8-4fc0-930e-5c6e1c52d020"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"triplePt", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Callout", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"QuantityMagnitude", "[", "TminL", "]"}], ",", 
          RowBox[{"QuantityMagnitude", "[", 
           RowBox[{"Pmin", ",", "MPa"}], "]"}]}], "}"}], ",", 
        "\"\<Triple Point\>\"", ",", 
        RowBox[{"LeaderSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"40", ",", 
           RowBox[{"55", "\[Degree]"}], ",", "10"}], "}"}]}], ",", 
        RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Larger"}], "}"}]}]}], "]"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"PointSize", "[", "0.015", "]"}]}], "}"}], "}"}]}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"critPt", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Callout", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"QuantityMagnitude", "[", "Tcrit", "]"}], ",", 
          RowBox[{"QuantityMagnitude", "[", 
           RowBox[{"Pcrit", ",", "MPa"}], "]"}]}], "}"}], ",", 
        "\"\<Critical Point\>\"", ",", 
        RowBox[{"LeaderSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"40", ",", 
           RowBox[{"200", "\[Degree]"}], ",", "0"}], "}"}]}], ",", 
        RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Red", ",", "Larger"}], "}"}]}]}], "]"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"PointSize", "[", "0.015", "]"}]}], "}"}], "}"}]}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"labelL", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Text", "[", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Liquid\>\"", ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"QuantityMagnitude", "[", 
         RowBox[{
          RowBox[{"0.5", "Tcrit"}], "+", 
          RowBox[{"0.5", "TminL"}]}], "]"}], ",", 
        RowBox[{"QuantityMagnitude", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"0.5", "Pcrit"}], "+", 
           RowBox[{"0.5", "Pmin"}]}], ",", "MPa"}], "]"}]}], "}"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"labelV", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Text", "[", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Vapor\>\"", ",", 
        RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
        RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"QuantityMagnitude", "[", 
         RowBox[{
          RowBox[{"0.85", "Tcrit"}], "+", 
          RowBox[{"0.15", "TminL"}]}], "]"}], ",", 
        RowBox[{"QuantityMagnitude", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"0.1", "Pcrit"}], "+", 
           RowBox[{"0.9", "Pmin"}]}], ",", "MPa"}], "]"}]}], "}"}]}], "]"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.828952175836731*^9, 3.828952177412486*^9}, {
  3.828952208339828*^9, 3.8289522532287855`*^9}, {3.8289524575874476`*^9, 
  3.828952573061715*^9}, {3.828952683518401*^9, 3.8289527540388327`*^9}, {
  3.8289527881157513`*^9, 3.8289527974049225`*^9}, {3.828953144830048*^9, 
  3.828953146429744*^9}, {3.8289531980776873`*^9, 3.828953302157421*^9}},
 CellLabel->"In[29]:=",
 CellID->9284284,ExpressionUUID->"7ec79976-1fd4-496e-8867-14983742430d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Show the Plot", "MathCaption",
 CellChangeTimes->{{3.828948427325389*^9, 3.828948431243907*^9}},
 CellID->391770430,ExpressionUUID->"fc36c012-eee5-4a13-ac5a-7d0d376624ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
  "satVCurve", ",", "satLCurve", ",", "triplePt", ",", "critPt", ",", 
   "labelL", ",", "labelV", ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Temperature [K]\>\"", ",", "\"\<Pressure [MPa]\>\""}], 
     "}"}]}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Saturation Curves for Tertiary Air Mixture\>\""}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Bold", ",", "Black", ",", "Larger"}], "]"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", " ", "Full"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8289484716668625`*^9, 3.828948489515148*^9}, {
  3.828948524563411*^9, 3.8289486592453566`*^9}, {3.8289500253958178`*^9, 
  3.828950049038607*^9}, {3.8289523853007116`*^9, 3.8289523934768553`*^9}, {
  3.828952587845191*^9, 3.828952594196211*^9}, {3.8289528721480865`*^9, 
  3.82895287574048*^9}},
 CellLabel->"In[33]:=",
 CellID->453853607,ExpressionUUID->"f0803a9b-c7cc-438d-8180-de6e1d13201c"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], Dashing[Medium], 
         LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAHr/CCDSeVUBu6VSHptvFP0jpUol/
2FVAAT50pdL/xz9f0alSshdWQK2tY0KPfso/tPb297RSVkBls9uUlv7MPy2E
KkiPjFZAImy937eczz+TzyThUMtWQLwl/sGxUtE/OFgVVuIFV0C8T9i7ZtXS
P8qezBNbRVdAZ36zIQaU1D9/TWp8q4NXQJBFzY9zZ9Y/czn+wMu9V0DghJTO
SjbYP1TjWE7T/FdAHJXuAIJK2j9zyqm3qjdYQJFDnZzUWNw/thnhy1lxWEB3
JDeSWnneP+Ym3yjwr1hAqAp6Uph04D9VcdNhVupYQGRatWuip+E/sXmO46Mp
WUB++Aj0cwbjPzDqLxDJZ1lA/GXBxKNx5D/ul8cYvqFZQK+xIEai1eU/mQMm
aprgWUAuzQuTKmvnP4KsepdGG1pAKMTpyW/46D9ZE5YN2lpaQCFuv0Xyu+o/
U+KXLkWZWkA4IOKNIY3sP4zujyuA01pAsOYnYDZT7j+yuE5xohJbQM3wU8MI
K/A/FsADk5RNW0DIs9SrQCbxP54vn19eh1tA2kH/wP4m8j8TXQF1D8ZbQFho
kR+KSfM/xsdZZpAAXEBpSuL5P2T0P2fweKD4P1xArLF0eZ2j9T8rgX6FOH5c
QOFA0wCe6vY/LU96Rki4XECTto5o+Cf4Px3bPFA/91xAmG32+PaN+T9LpPU1
BjJdQHL2DGV+6fo/ndWUxqRrXUAyAsiKB0v8P9zE+p8qql1AGibzN3LZ/T9Z
8VZVgORdQPIRx1B1W/8/xNt5U70jXkCEArH/+4YAQG0Dky3KXl5AORtkNqBZ
AUA5k5KyrpheQOOnbqmqLwJA8+BYgHrXXkBR0dQ+jyADQOtrFSoWEl9ARiBJ
p+IJBEDQtJgcmVFfQPH2j9hkEAVA2WUCuvOPX0C2HZ7PXRwGQCBUYjMeyl9A
EYtvGwEgB0ArgMT6lwRgQLl7XebGRAhA5fTSyQgiYECNKtX0i2EJQLGdVG7l
PmBA6evIqaKECkBzpTm3NV5gQB8HWe8N0AtA1csZ7m17YEBTwz03jRgNQLmb
GhgMnGBAPad2PyjJDkCjbHzq
          "]]},
        Annotation[#, "Charting`Private`Tag$9911#1"]& ]}, {}}, {{{}, {}, 
       TagBox[
        {GrayLevel[0], Thickness[Large], Opacity[1.], LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAATSBcPpLzVEDpsSaIptvFP83byU8p
MVVASUvUBK0MyD8Hysee7nNVQGZ4P2VMm8o/2WonL0eyVUCo4Ix9GSzNP6OT
Tapm71VA+PEVKpfczz8n7wNjtDFWQMwyspe3fdE/Q/0bXZVvVkANyqR+4QvT
Pxk+xJSkslZACETMiS/Y1D/nBjO3evRWQBFrGgtiutY/TYIDG+QxV0BD0+po
PpjYP20wZLx7dFdAFQKrTSe+2j8kkSafprJXQMPJj5dc3tw/1HmvbJjvV0CF
Hv2zvRHfPz6VyHe4MVhAfu12ycfL4D8/Y0PEa29YQKyVv5vPCeI/+mNOTk2y
WECsntdlXXXjP67sH8P181hAWnogZ+ft5D/5J1N5MTFZQJlHssUfX+Y//pUW
bZtzWUDBiE0E3APoP5u2O6KYsVlAEjNhxSKg6T/yCfEUxPRZQLn/387NdOs/
QeVscrY2WkAgl0TJv1ftPyhzShE8dFpARRNLxjcv7z/JM7jt77ZaQLomaWDo
ovA/AqeHCzf1WkDOC8uowafxPzOiHRRFMltA2sv0rlKy8j8e0ENagXRbQBXB
kqHx3/M/obDL4VCyW0DpYvkaXwX1P97D46ZO9VtAgXsup79Q9j8TX8JWEzdc
QERkMn7ro/c/4KwCSGt0XEAYk7Kd7uz4P2ct03bxtlxABOuld95f+j+GYAXn
CvVcQHeWy5a3x/s/nRv+QesxXUAA9HufgDX9P24Jh9r5c11AAs3RNFbR/j/X
qXG0m7FdQGkvPhn0LwBA+nzsy2v0XUB/oZ50+w8BQLQCySTPMl5AjWYKndro
AUBnEGxo+W9eQDTG9O3WxAJA1FCf6VGyXkDBu3sj5LsDQNhDNKw98F5Au3Ub
NJCqBECWaVmsVzNfQNeJY747tgVATRdFlzh1X0BgpiYRXcYGQJt3ksOssl9A
eDwktbnMB0CjCnAtT/VfQJUJkFmi8ghAIahXbMIZYEABW3hE8A0KQO2OWrdA
OGBAK6ZT9+UrC0AWjyUhVllgQN0avJWfagxAi2ihKzV4YEBB/wauR5kNQHwi
/FWrmmBASQctrVmqDkBMlnsG
          "]]},
        Annotation[#, "Charting`Private`Tag$12252#1"]& ]}, {}}, {{}, {
       {RGBColor[0, 0, 1], PointSize[0.015], AbsoluteThickness[1.6], 
        PointBox[{{83.8058, 0.17076568458252211`}, {83.8058, 
         0.17076568458252211`}}]}, {
        TagBox[
         {Opacity[0.], PointBox[{{83.8058, 0.17076568458252211`}}]},
         Annotation[#, {{Callout}, Charting`Private`Tag$14634, {1}}]& ], 
        TagBox[
         {Opacity[0.], PointBox[{{83.8058, 0.17076568458252211`}}]},
         Annotation[#, {{Callout}, Charting`Private`Tag$14634, {
           1}}]& ]}}, {{{{}, GraphicsGroupBox[{
           {GrayLevel[1], AbsoluteThickness[4], Opacity[
             NCache[
              Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
            "Round"], 
            BSplineCurveBox[{
             Offset[{5.7357643635104605`, 8.191520442889917}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{5.7357643635104605`, 8.191520442889917}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{14.339410908776152`, 20.478801107224793`}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{14.339410908776152`, 20.478801107224793`}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{22.943057454041842`, 32.76608177155967}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{24.943057454041842`, 32.76608177155967}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{26.943057454041842`, 32.76608177155967}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{26.943057454041842`, 32.76608177155967}, {
               84.6470080619171, 0.174803188621627}]}]}, 
           {RGBColor[
            0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
            AbsoluteThickness[1.25], 
            BSplineCurveBox[{
             Offset[{5.7357643635104605`, 8.191520442889917}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{5.7357643635104605`, 8.191520442889917}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{14.339410908776152`, 20.478801107224793`}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{14.339410908776152`, 20.478801107224793`}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{22.943057454041842`, 32.76608177155967}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{24.943057454041842`, 32.76608177155967}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{26.943057454041842`, 32.76608177155967}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{26.943057454041842`, 32.76608177155967}, {
               84.6470080619171, 0.174803188621627}]}]}, 
           {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
             NCache[
              Rational[2, 3], 0.6666666666666666]]}], 
            PolygonBox[{
             Offset[{91.94305745404185, 41.266081771559676`}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{91.94305745404185, 24.266081771559676`}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{26.943057454041842`, 24.266081771559662`}, {
               84.6470080619171, 0.174803188621627}], 
              Offset[{26.943057454041842`, 41.26608177155966}, {
               84.6470080619171, 0.174803188621627}]}]}, 
           {RGBColor[
            0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
            AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
            StyleBox[
             RotationBox["\<\"Triple Point\"\>",
              BoxRotation->0.],
             StripOnInput->False,
             LineColor->RGBColor[0, 0, 1],
             LineOpacity->1,
             FrontFaceColor->RGBColor[0, 0, 1],
             BackFaceColor->RGBColor[0, 0, 1],
             FrontFaceOpacity->1,
             BackFaceOpacity->1,
             GraphicsColor->RGBColor[0, 0, 1],
             Opacity->1,
             FontSize->Larger,
             FontColor->RGBColor[0, 0, 1],
             FontOpacity->1], 
            Offset[{59.44305745404184, 32.76608177155967}, \
{84.6470080619171, 0.174803188621627}], 
            ImageScaled[{
             Rational[1, 2], Rational[1, 2]}]]}]}, {}}, {}}}, {{}, {
       {RGBColor[1, 0, 0], PointSize[0.015], AbsoluteThickness[1.6], 
        PointBox[{{132.83441602479704`, 3.8521447361232606`}, {
         132.83441602479704`, 3.8521447361232606`}}]}, {
        TagBox[
         {Opacity[0.], PointBox[{{132.83441602479704`, 3.8521447361232606`}}]},
         Annotation[#, {{Callout}, Charting`Private`Tag$14798, {1}}]& ], 
        TagBox[
         {Opacity[0.], PointBox[{{132.83441602479704`, 3.8521447361232606`}}]},
         Annotation[#, {{Callout}, Charting`Private`Tag$14798, {
           1}}]& ]}}, {{{{}, GraphicsGroupBox[{
           {GrayLevel[1], AbsoluteThickness[4], Opacity[
             NCache[
              Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
            "Round"], 
            BSplineCurveBox[{
             Offset[{0., 0.}, {130.65000441561116`, 3.8141168549695093`}], 
              Offset[{0., 0.}, {130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-18.79385241571817, -6.840402866513373}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-18.79385241571817, -6.840402866513373}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-37.58770483143634, -13.680805733026746`}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-39.58770483143634, -13.680805733026746`}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-41.58770483143634, -13.680805733026746`}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-41.58770483143634, -13.680805733026746`}, {
               130.65000441561116`, 3.8141168549695093`}]}]}, 
           {RGBColor[
            0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
            AbsoluteThickness[1.25], 
            BSplineCurveBox[{
             Offset[{0., 0.}, {130.65000441561116`, 3.8141168549695093`}], 
              Offset[{0., 0.}, {130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-18.79385241571817, -6.840402866513373}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-18.79385241571817, -6.840402866513373}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-37.58770483143634, -13.680805733026746`}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-39.58770483143634, -13.680805733026746`}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-41.58770483143634, -13.680805733026746`}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-41.58770483143634, -13.680805733026746`}, {
               130.65000441561116`, 3.8141168549695093`}]}]}, 
           {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
             NCache[
              Rational[2, 3], 0.6666666666666666]]}], 
            PolygonBox[{
             Offset[{-41.58770483143634, -6.180805733026738}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-41.58770483143634, -21.180805733026737`}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-113.58770483143634`, -21.180805733026755`}, {
               130.65000441561116`, 3.8141168549695093`}], 
              Offset[{-113.58770483143634`, -6.180805733026754}, {
               130.65000441561116`, 3.8141168549695093`}]}]}, 
           {RGBColor[
            0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
            AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
            StyleBox[
             RotationBox["\<\"Critical Point\"\>",
              BoxRotation->0.],
             StripOnInput->False,
             LineColor->RGBColor[1, 0, 0],
             FrontFaceColor->RGBColor[1, 0, 0],
             BackFaceColor->RGBColor[1, 0, 0],
             GraphicsColor->RGBColor[1, 0, 0],
             FontSize->Larger,
             FontColor->RGBColor[1, 0, 0]], 
            Offset[{-77.58770483143634, -13.680805733026746}, \
{130.65000441561116, 3.8141168549695093}], 
            ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}, {}}}, 
     InsetBox[
      StyleBox["\<\"Liquid\"\>",
       StripOnInput->False,
       FontSize->14,
       FontWeight->"Bold"], {108.32010801239852, 2.0114552103528913}], 
     InsetBox[
      StyleBox["\<\"Vapor\"\>",
       StripOnInput->False,
       FontSize->14,
       FontWeight->"Bold"], {125.48012362107748, 0.5389035897365959}]}, 
    InsetBox[
     TagBox[GridBox[{
        {
         FormBox[
          TemplateBox[{"\"Sat. Vapor\""},
           "LineLegend",
           DisplayFunction->(StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[Medium]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[Medium]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              GrayLevel[0], FontWeight -> Bold, FontSize -> 14, FontFamily -> 
              "Arial"}, Background -> Automatic, StripOnInput -> False]& ),
           Editable->True,
           InterpretationFunction:>(RowBox[{"LineLegend", "[", 
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", "Medium", "]"}]}], "]"}], "}"}], 
                ",", 
                RowBox[{"{", #, "}"}], ",", 
                RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
                RowBox[{"LabelStyle", "\[Rule]", 
                  RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", "Bold", ",", "14"}], "}"}]}], ",", 
                RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
          TraditionalForm]},
        {
         FormBox[
          TemplateBox[{"\"Sat. Liquid\""},
           "LineLegend",
           DisplayFunction->(StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              GrayLevel[0], FontWeight -> Bold, FontSize -> 14, FontFamily -> 
              "Arial"}, Background -> Automatic, StripOnInput -> False]& ),
           Editable->True,
           InterpretationFunction:>(RowBox[{"LineLegend", "[", 
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], 
                ",", 
                RowBox[{"{", #, "}"}], ",", 
                RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
                RowBox[{"LabelStyle", "\[Rule]", 
                  RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", "Bold", ",", "14"}], "}"}]}], ",", 
                RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
          TraditionalForm]}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{"Columns" -> {{0}}}],
      "Grid"], Scaled[{0.2, 0.8}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{86.47192496981381, 0},
   DisplayFunction->Identity,
   Frame->True,
   FrameLabel->{
     FormBox["\"Temperature [K]\"", TraditionalForm], 
     FormBox["\"Pressure [MPa]\"", TraditionalForm]},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->All,
   ImageSize->Full,
   LabelStyle->Directive[Bold, 
     GrayLevel[0], Larger],
   Method->{
    "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotLabel->FormBox[
    "\"Saturation Curves for Tertiary Air Mixture\"", TraditionalForm],
   PlotRange->Automatic,
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0, 0], 
            Thickness[Large], 
            Dashing[Medium]], 
           Line[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAHr/CCDSeVUBu6VSHptvFP0jpUol/
2FVAAT50pdL/xz9f0alSshdWQK2tY0KPfso/tPb297RSVkBls9uUlv7MPy2E
KkiPjFZAImy937eczz+TzyThUMtWQLwl/sGxUtE/OFgVVuIFV0C8T9i7ZtXS
P8qezBNbRVdAZ36zIQaU1D9/TWp8q4NXQJBFzY9zZ9Y/czn+wMu9V0DghJTO
SjbYP1TjWE7T/FdAHJXuAIJK2j9zyqm3qjdYQJFDnZzUWNw/thnhy1lxWEB3
JDeSWnneP+Ym3yjwr1hAqAp6Uph04D9VcdNhVupYQGRatWuip+E/sXmO46Mp
WUB++Aj0cwbjPzDqLxDJZ1lA/GXBxKNx5D/ul8cYvqFZQK+xIEai1eU/mQMm
aprgWUAuzQuTKmvnP4KsepdGG1pAKMTpyW/46D9ZE5YN2lpaQCFuv0Xyu+o/
U+KXLkWZWkA4IOKNIY3sP4zujyuA01pAsOYnYDZT7j+yuE5xohJbQM3wU8MI
K/A/FsADk5RNW0DIs9SrQCbxP54vn19eh1tA2kH/wP4m8j8TXQF1D8ZbQFho
kR+KSfM/xsdZZpAAXEBpSuL5P2T0P2fweKD4P1xArLF0eZ2j9T8rgX6FOH5c
QOFA0wCe6vY/LU96Rki4XECTto5o+Cf4Px3bPFA/91xAmG32+PaN+T9LpPU1
BjJdQHL2DGV+6fo/ndWUxqRrXUAyAsiKB0v8P9zE+p8qql1AGibzN3LZ/T9Z
8VZVgORdQPIRx1B1W/8/xNt5U70jXkCEArH/+4YAQG0Dky3KXl5AORtkNqBZ
AUA5k5KyrpheQOOnbqmqLwJA8+BYgHrXXkBR0dQ+jyADQOtrFSoWEl9ARiBJ
p+IJBEDQtJgcmVFfQPH2j9hkEAVA2WUCuvOPX0C2HZ7PXRwGQCBUYjMeyl9A
EYtvGwEgB0ArgMT6lwRgQLl7XebGRAhA5fTSyQgiYECNKtX0i2EJQLGdVG7l
PmBA6evIqaKECkBzpTm3NV5gQB8HWe8N0AtA1csZ7m17YEBTwz03jRgNQLmb
GhgMnGBAPad2PyjJDkCjbHzq
            "]]}, "Charting`Private`Tag$9911#1"]}}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            GrayLevel[0], 
            Thickness[Large]], 
           Line[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAATSBcPpLzVEDpsSaIptvFP83byU8p
MVVASUvUBK0MyD8Hysee7nNVQGZ4P2VMm8o/2WonL0eyVUCo4Ix9GSzNP6OT
Tapm71VA+PEVKpfczz8n7wNjtDFWQMwyspe3fdE/Q/0bXZVvVkANyqR+4QvT
Pxk+xJSkslZACETMiS/Y1D/nBjO3evRWQBFrGgtiutY/TYIDG+QxV0BD0+po
PpjYP20wZLx7dFdAFQKrTSe+2j8kkSafprJXQMPJj5dc3tw/1HmvbJjvV0CF
Hv2zvRHfPz6VyHe4MVhAfu12ycfL4D8/Y0PEa29YQKyVv5vPCeI/+mNOTk2y
WECsntdlXXXjP67sH8P181hAWnogZ+ft5D/5J1N5MTFZQJlHssUfX+Y//pUW
bZtzWUDBiE0E3APoP5u2O6KYsVlAEjNhxSKg6T/yCfEUxPRZQLn/387NdOs/
QeVscrY2WkAgl0TJv1ftPyhzShE8dFpARRNLxjcv7z/JM7jt77ZaQLomaWDo
ovA/AqeHCzf1WkDOC8uowafxPzOiHRRFMltA2sv0rlKy8j8e0ENagXRbQBXB
kqHx3/M/obDL4VCyW0DpYvkaXwX1P97D46ZO9VtAgXsup79Q9j8TX8JWEzdc
QERkMn7ro/c/4KwCSGt0XEAYk7Kd7uz4P2ct03bxtlxABOuld95f+j+GYAXn
CvVcQHeWy5a3x/s/nRv+QesxXUAA9HufgDX9P24Jh9r5c11AAs3RNFbR/j/X
qXG0m7FdQGkvPhn0LwBA+nzsy2v0XUB/oZ50+w8BQLQCySTPMl5AjWYKndro
AUBnEGxo+W9eQDTG9O3WxAJA1FCf6VGyXkDBu3sj5LsDQNhDNKw98F5Au3Ub
NJCqBECWaVmsVzNfQNeJY747tgVATRdFlzh1X0BgpiYRXcYGQJt3ksOssl9A
eDwktbnMB0CjCnAtT/VfQJUJkFmi8ghAIahXbMIZYEABW3hE8A0KQO2OWrdA
OGBAK6ZT9+UrC0AWjyUhVllgQN0avJWfagxAi2ihKzV4YEBB/wauR5kNQHwi
/FWrmmBASQctrVmqDkBMlnsG
            "]]}, "Charting`Private`Tag$12252#1"]}}, {}}, {{}, {{{
          Directive[
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1], 
           PointSize[0.015]], 
          
          Point[{{83.8058, 0.17076568458252211`}, {83.8058, 
           0.17076568458252211`}}]}}, {
         Annotation[{
           Opacity[0.], 
           Point[{{83.8058, 0.17076568458252211`}}]}, {{Callout}, 
           Charting`Private`Tag$14634, {1}}], 
         Annotation[{
           Opacity[0.], 
           Point[{{83.8058, 0.17076568458252211`}}]}, {{Callout}, 
           Charting`Private`Tag$14634, {1}}]}}, {{{{}, {{
            GraphicsGroup[{{
               Directive[
                AbsoluteThickness[4], 
                GrayLevel[1], 
                Opacity[
                 Rational[2, 3]]], 
               CapForm["Butt"], 
               JoinForm["Round"], 
               BSplineCurve[{
                 
                 Offset[{5.7357643635104605`, 8.191520442889917}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{5.7357643635104605`, 8.191520442889917}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{14.339410908776152`, 20.478801107224793`}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{14.339410908776152`, 20.478801107224793`}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{22.943057454041842`, 32.76608177155967}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{24.943057454041842`, 32.76608177155967}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{26.943057454041842`, 32.76608177155967}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{26.943057454041842`, 32.76608177155967}, {
                  84.6470080619171, 0.174803188621627}]}]}, {
               Directive[
                RGBColor[
                0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
                AbsoluteThickness[1.25]], 
               BSplineCurve[{
                 
                 Offset[{5.7357643635104605`, 8.191520442889917}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{5.7357643635104605`, 8.191520442889917}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{14.339410908776152`, 20.478801107224793`}, {
                  84.6470080619171, 0.174803188621627}], 
                 Offset[{14.339410908776152`, 20.478801107224793`}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{22.943057454041842`, 32.76608177155967}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{24.943057454041842`, 32.76608177155967}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{26.943057454041842`, 32.76608177155967}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{26.943057454041842`, 32.76608177155967}, {
                  84.6470080619171, 0.174803188621627}]}]}, {
               FaceForm[
                Directive[
                 GrayLevel[1], 
                 Opacity[
                  Rational[2, 3]]]], 
               EdgeForm[], 
               Polygon[{
                 
                 Offset[{91.94305745404185, 41.266081771559676`}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{91.94305745404185, 24.266081771559676`}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{26.943057454041842`, 24.266081771559662`}, {
                  84.6470080619171, 0.174803188621627}], 
                 
                 Offset[{26.943057454041842`, 41.26608177155966}, {
                  84.6470080619171, 0.174803188621627}]}]}, {
               EdgeForm[], 
               Directive[
                RGBColor[
                0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
                AbsoluteThickness[1.25]]}, {}, 
              Text[
               Style[
                Rotate["Triple Point", 0], {
                 RGBColor[0, 0, 1], Larger, 
                 Opacity[1]}], 
               
               Offset[{59.44305745404184, 32.76608177155967}, {
                84.6470080619171, 0.174803188621627}], {0, 
               0}]}]}}}, {}}, {}}}, {{}, {{{
          Directive[
           AbsoluteThickness[1.6], 
           RGBColor[1, 0, 0], 
           PointSize[0.015]], 
          
          Point[{{132.83441602479704`, 3.8521447361232606`}, {
           132.83441602479704`, 3.8521447361232606`}}]}}, {
         Annotation[{
           Opacity[0.], 
           Point[{{132.83441602479704`, 3.8521447361232606`}}]}, {{Callout}, 
           Charting`Private`Tag$14798, {1}}], 
         Annotation[{
           Opacity[0.], 
           Point[{{132.83441602479704`, 3.8521447361232606`}}]}, {{Callout}, 
           Charting`Private`Tag$14798, {1}}]}}, {{{{}, {{
            GraphicsGroup[{{
               Directive[
                AbsoluteThickness[4], 
                GrayLevel[1], 
                Opacity[
                 Rational[2, 3]]], 
               CapForm["Butt"], 
               JoinForm["Round"], 
               BSplineCurve[{
                 Offset[{0., 0.}, {130.65000441561116`, 3.8141168549695093`}], 
                 Offset[{0., 0.}, {130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-18.79385241571817, -6.840402866513373}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-18.79385241571817, -6.840402866513373}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-37.58770483143634, -13.680805733026746`}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-39.58770483143634, -13.680805733026746`}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-41.58770483143634, -13.680805733026746`}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-41.58770483143634, -13.680805733026746`}, {
                  130.65000441561116`, 3.8141168549695093`}]}]}, {
               Directive[
                RGBColor[
                0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
                AbsoluteThickness[1.25]], 
               BSplineCurve[{
                 Offset[{0., 0.}, {130.65000441561116`, 3.8141168549695093`}], 
                 Offset[{0., 0.}, {130.65000441561116`, 3.8141168549695093`}], 
                 Offset[{-18.79385241571817, -6.840402866513373}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-18.79385241571817, -6.840402866513373}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-37.58770483143634, -13.680805733026746`}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-39.58770483143634, -13.680805733026746`}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-41.58770483143634, -13.680805733026746`}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-41.58770483143634, -13.680805733026746`}, {
                  130.65000441561116`, 3.8141168549695093`}]}]}, {
               FaceForm[
                Directive[
                 GrayLevel[1], 
                 Opacity[
                  Rational[2, 3]]]], 
               EdgeForm[], 
               Polygon[{
                 
                 Offset[{-41.58770483143634, -6.180805733026738}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-41.58770483143634, -21.180805733026737`}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-113.58770483143634`, -21.180805733026755`}, {
                  130.65000441561116`, 3.8141168549695093`}], 
                 
                 Offset[{-113.58770483143634`, -6.180805733026754}, {
                  130.65000441561116`, 3.8141168549695093`}]}]}, {
               EdgeForm[], 
               Directive[
                RGBColor[
                0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
                AbsoluteThickness[1.25]]}, {}, 
              Text[
               Style[
                Rotate["Critical Point", 0], {
                 RGBColor[1, 0, 0], Larger}], 
               
               Offset[{-77.58770483143634, -13.680805733026746`}, {
                130.65000441561116`, 3.8141168549695093`}], {0, 
               0}]}]}}}, {}}, {}}}, 
      Text[
       Style["Liquid", FontSize -> 14, FontWeight -> "Bold"], {
       108.32010801239852`, 2.0114552103528913`}], 
      Text[
       Style["Vapor", FontSize -> 14, FontWeight -> "Bold"], {
       125.48012362107748`, 0.5389035897365959}]}, {
     PlotRange -> Automatic, Frame -> True, 
      FrameLabel -> {"Temperature [K]", "Pressure [MPa]"}, PlotLabel -> 
      "Saturation Curves for Tertiary Air Mixture", LabelStyle -> 
      Directive[Bold, 
        GrayLevel[0], Larger], ImageSize -> Full, DisplayFunction -> Identity,
       Ticks -> {Automatic, Automatic}, AxesOrigin -> {86.47192496981381, 0}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {None, None}, 
      AxesOrigin -> {86.47192496981381, 0}, DisplayFunction :> Identity, 
      Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{86.47192496981381, 132.87647728443528`}, {0., 
       3.848221298035155}}, PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      Unevaluated[
       LineLegend[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Thickness[Large]]}, {"Sat. Liquid"}, LegendMarkers -> None, 
        LabelStyle -> {
          GrayLevel[0], Bold, 14}, LegendLayout -> "Column"]]], 
     Scaled[{0.2, 0.8}], Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.8289496935280924`*^9, 3.8289499469056673`*^9, {3.828950027151125*^9, 
   3.8289500504099407`*^9}, 3.8289500885499706`*^9, 3.8289501379857993`*^9, 
   3.828950284703539*^9, 3.82895177682652*^9, 3.8289518687138505`*^9, {
   3.8289521158780375`*^9, 3.8289521450909343`*^9}, 3.8289523950965242`*^9, 
   3.8289525961629233`*^9, 3.8289528397227488`*^9, 3.8289528773062935`*^9, {
   3.8289532064562907`*^9, 3.828953254162738*^9}, {3.828953296220299*^9, 
   3.828953308624445*^9}, 3.82928103615578*^9},
 CellLabel->"Out[33]=",
 CellID->513342672,ExpressionUUID->"f0c0d519-0564-4f65-9939-65c02ec3bd8d"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Note the separation between the saturated vapor and saturated liquid curves.  \
This is a much narrower separation than for the natural gas shown in Figure 1 \
and the cricondentherm and cricondenbar (not plotted) are clustered very near \
the critical point.\
\>", "Text",
 CellChangeTimes->{{3.8289529387809362`*^9, 3.8289529563260336`*^9}, {
  3.8289529991894007`*^9, 3.828953089908889*^9}},
 CellID->464233227,ExpressionUUID->"7f51e4cb-d8a0-4569-baf2-2cf6e60e1af3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["General Flash Calculations", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8231827403682175`*^9, 3.823182746160725*^9}},
 CellID->144976092,ExpressionUUID->"c706e3e2-d0f9-4333-8636-26cd6a255c9b"],

Cell[TextData[{
 "When the state point is two-phase or not known, a general function must be \
used to first determine the phase region and then internally calculate the \
single phase or two-phase properties, either calling the single-phase \
functions above or performing a flash calculation between the saturated \
liquid and saturated vapor states, if warranted.  REFPROP provides a number \
of general flash functions that can be applied depending on the two state \
properties that are known.  These functions again return a ruled ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "2d8f8b04-2a38-4f48-a703-ad50e1320c4f"],
 " to identify the value being returned, even if there is only one value \
being returned. "
}], "Text",
 CellChangeTimes->{{3.8168492667978787`*^9, 3.816849386013626*^9}, 
   3.8179997867066865`*^9, {3.822593460690585*^9, 3.822593472259637*^9}, 
   3.822593629534955*^9, {3.822598982839508*^9, 3.8225990563618293`*^9}, {
   3.8225999774766903`*^9, 3.8226001513735666`*^9}, {3.82260181892393*^9, 
   3.822601896188301*^9}, {3.8226020409391065`*^9, 3.8226020451169634`*^9}, 
   3.822604849730685*^9, {3.8226051394487777`*^9, 3.82260515201713*^9}, {
   3.8226085968775773`*^9, 3.822608819181978*^9}, {3.8231827875201316`*^9, 
   3.8231828503191624`*^9}, {3.823182881086838*^9, 3.8231829237517223`*^9}, {
   3.8289533665954247`*^9, 3.828953383548098*^9}, {3.828953434243558*^9, 
   3.8289534357485604`*^9}},
 CellID->284819056,ExpressionUUID->"86e0ca2e-0b06-4ee1-95fb-39cb557706bf"],

Cell[BoxData[GridBox[{
   {
    RowBox[{"tpflsh", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["p", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell["\<\
Returns thermodynamic state properties at specified temperature and pressure.\
\>", "TableText",ExpressionUUID->"5f8730fc-869b-46a2-b277-6e9fe9bdab68"]},
   {
    RowBox[{"tdflsh", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["d", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell["\<\
Returns thermodynamic state properties at specified temperature and molar \
density.\
\>", "TableText",ExpressionUUID->"b552be01-7484-4cb1-bcdb-d574749c0e2d"]},
   {
    RowBox[{"pdflsh", "[", 
     RowBox[{
      StyleBox["p", "TI"], ",", 
      StyleBox["d", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell["\<\
Returns thermodynamic state properties at specified pressure and density.\
\>", "TableText",ExpressionUUID->"1b011c38-991c-421b-bdec-f79db6a04d09"]},
   {
    RowBox[{"thflsh", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["h", "TI"], ",", 
      StyleBox["z", "TI"], ",", 
      StyleBox["kr", "TI"]}], "]"}], Cell["\<\
Returns thermodynamic state properties at specified temperature and enthalpy.\
\>", "TableText",ExpressionUUID->"d729d9bd-0b93-4765-b15b-b71c56fe9676"]},
   {
    RowBox[{"phflsh", "[", 
     RowBox[{
      StyleBox["p", "TI"], ",", 
      StyleBox["h", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell["\<\
Returns thermodynamic state properties at specified pressure and enthalpy.\
\>", "TableText",ExpressionUUID->"92708e7f-c56e-4183-944f-60936bdd4898"]},
   {
    RowBox[{"tsflsh", "[", 
     RowBox[{
      StyleBox["t", "TI"], ",", 
      StyleBox["s", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell["\<\
Returns thermodynamic state properties at specified temperature and entropy.\
\>", "TableText",ExpressionUUID->"e18cd2bf-ffba-4747-baa9-88e2a4eb577e"]},
   {
    RowBox[{"psflsh", "[", 
     RowBox[{
      StyleBox["p", "TI"], ",", 
      StyleBox["s", "TI"], ",", 
      StyleBox["z", "TI"]}], "]"}], Cell["\<\
Returns thermodynamic state properties at specified pressure and entropy.\
\>", "TableText",ExpressionUUID->"43d4f775-9f74-4fc9-abf6-fd8b9e1e38cc"]}
  }]], "DefinitionBox",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQPWGf/nWW6jeOYRdqb4Poo0u4X4PoO7IMn0F0YFLX
dxC95+ZlMD1rVkAlO5A+c52/BkRXuEcsANHvK1uXg+gHPfx3QPQN6bTHIHpv
2eEbHEB60sKE+yBa5fblxyD6jnXkMxAdcbDyNYh2cfvwBkRzBsX+AtEam5/8
BdEGk5bzcgLpW+fnyIPod30JHlxAeo0jezyI5igTSwbRe35A6JDnrZ0guub/
ii4QfWTxMXMeIG1z5qUFiFa5wOoIorlUQ1xB9LZJcp5gcYFdSSD6zsTDK1Rq
3jiKFX4G0/c2P89f1v3G0WvbglIQDQBmppXD
  "],
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.25], {
      Scaled[0.75]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->530103452,ExpressionUUID->"14654938-304b-494c-975d-4235aef4ed68"],

Cell["General Flash functions.", "Caption",
 CellChangeTimes->{{3.822593572812685*^9, 3.8225935774353223`*^9}, {
  3.8226025046350183`*^9, 3.8226025164513807`*^9}, {3.8226051000172167`*^9, 
  3.82260511034559*^9}, {3.8226091995655947`*^9, 3.822609202901642*^9}},
 CellID->46550640,ExpressionUUID->"26f1062a-9fb6-46c6-bd1f-61eb4c15831b"],

Cell[TextData[{
 "For multi-component mixtures, the parameter ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "25195025-8fbb-4441-9a8a-e052ff9451f8"],
 " specifies the molar composition of the mixture.  "
}], "Text",
 CellChangeTimes->{
  3.8225936434148417`*^9, {3.822593759986809*^9, 3.822593794418743*^9}, {
   3.8225990675658903`*^9, 3.8225990924020305`*^9}, {3.8226020956208773`*^9, 
   3.82260217746697*^9}, {3.8226054806402273`*^9, 3.822605536984524*^9}, {
   3.8226055756660895`*^9, 3.822605661737873*^9}, {3.8231835390225406`*^9, 
   3.823183551621835*^9}},
 CellID->398580332,ExpressionUUID->"b87c8e63-0b84-40eb-baf9-e64648494166"],

Cell[TextData[{
 "Note: The ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["thflsh",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/thflsh"]], "InlineFormula",
  ExpressionUUID->"e825418b-3bb0-4844-9ce7-651e7435dcbc"],
 " function is a special case in this set of flash routines. Often, two \
solutions (roots) can exist; one in the two-phase region and one at a higher \
pressure in the liquid region.  If this is the case, call ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["thflsh",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/thflsh"]], "InlineFormula",
  ExpressionUUID->"24531b15-627d-4707-a95f-a626dfc3601b"],
 " a second time with ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "66fe7b4a-1843-4daa-92e8-14149902d778"],
 "=2 to get the single-phase (high pressure, liquid) state.  If omitted, ",
 Cell[BoxData[
  StyleBox["kr", "TI"]], "InlineFormula",ExpressionUUID->
  "16535d55-06ef-4e37-8700-d50b9e9d8de4"],
 "=1 (2-phase) is assumed.  The other flash routines implemented here are al \
single valued and do not take this extra parameter."
}], "Text",
 CellChangeTimes->{{3.8231859722007165`*^9, 3.8231860128290763`*^9}, {
  3.8231860592678385`*^9, 3.8231861631968594`*^9}, {3.823186228476286*^9, 
  3.8231862592050657`*^9}},
 CellID->203140561,ExpressionUUID->"f3325871-9774-458f-bcc7-7c65d89b88ec"],

Cell[TextData[{
 "For this example, we'll stick with our tertiary air mixture loaded in the \
example above.  Since the saturation pressures and molar densities are \
already known, we'll set a pressure well into the vapor and liquid regions, \
as well as one in the middle of the two phase region between the two \
saturation points.  For known single-phase calculations, ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["tprho",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/tprho"]], "InlineFormula",
  ExpressionUUID->"c131956d-b594-4b90-b7de-41c18ebd233d"],
 " is faster than the general flash calculations; the flash calculation in \
the single-phase regions below is only used here for demonstration purposes."
}], "Text",
 CellChangeTimes->{{3.823183583855619*^9, 3.823183608319221*^9}, {
  3.8231842505107517`*^9, 3.8231843207658405`*^9}, {3.8231857057513885`*^9, 
  3.8231858461728034`*^9}, {3.8289534778599763`*^9, 3.82895349604436*^9}},
 CellID->376208704,ExpressionUUID->"0b526697-41af-48e5-a68b-a5ac1a08b13d"],

Cell[CellGroupData[{

Cell["\<\
Set pressures above (liquid) below (vapor) and inside the two phase region.\
\>", "MathCaption",
 CellChangeTimes->{{3.8231843638066893`*^9, 3.8231843999749784`*^9}},
 CellID->74636344,ExpressionUUID->"483720cf-22e4-4f1b-917e-d4be40ec508b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "=", 
  RowBox[{"0.5", 
   RowBox[{"(", 
    RowBox[{"TminL", "+", "Tcrit"}], ")"}]}]}]], "Input",
 CellChangeTimes->{
  3.8231850914803796`*^9, {3.828953541645438*^9, 3.828953558909254*^9}},
 CellLabel->"In[160]:=",
 CellID->27082142,ExpressionUUID->"b504dbdb-bb1e-4643-8088-705fa73165aa"],

Cell[BoxData[
 TemplateBox[{"108.31829423207854`", "\"K\"", "kelvins", "\"Kelvins\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.823185092992386*^9, 3.8289535661239643`*^9},
 CellLabel->"Out[160]=",
 CellID->211389169,ExpressionUUID->"7f090798-d55d-4637-9149-d47374d5cf01"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["Psat", "L"], "=", 
   RowBox[{
    RowBox[{"satt", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["z", "Air3"], ",", "1"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["Psat", "V"], "=", 
   RowBox[{
    RowBox[{"satt", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["z", "Air3"], ",", "2"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["P", "L"], "=", 
   RowBox[{"1.1", "*", 
    SubscriptBox["Psat", "L"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["P", "V"], "=", 
   RowBox[{"0.8", "*", 
    SubscriptBox["Psat", "V"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["P", 
    RowBox[{"2", "\[Phi]"}]], "=", 
   RowBox[{"0.5", "*", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["Psat", "L"], "+", 
      SubscriptBox["Psat", "V"]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   SubscriptBox["P", "V"], ",", 
   SubscriptBox["P", 
    RowBox[{"2", "\[Phi]"}]], ",", 
   SubscriptBox["P", "L"]}], "}"}]}], "Input",
 CellChangeTimes->{{3.823184404346258*^9, 3.8231845249825935`*^9}, {
  3.823185033271104*^9, 3.823185054381615*^9}, {3.8231851526537886`*^9, 
  3.823185153165392*^9}, {3.823185461325185*^9, 3.82318546669283*^9}, {
  3.828953593118816*^9, 3.828953649109125*^9}, {3.8289536793572264`*^9, 
  3.8289537683253927`*^9}},
 CellLabel->"In[167]:=",
 CellID->74391681,ExpressionUUID->"c8ec272e-ffbd-4fc0-9c7e-9aeb7c1b5e05"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "809.9719233825288`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{
    "1074.4620515196198`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{
    "1250.1051186921866`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8231845262931333`*^9, 3.823185056501966*^9, 3.8231851543093596`*^9, 
   3.8231854709983115`*^9, {3.828953761626274*^9, 3.8289537714021654`*^9}},
 CellLabel->"Out[172]=",
 CellID->437221212,ExpressionUUID->"d6614354-1b95-4eeb-9ada-c94e4d19700f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Get the fluid properties at the ",
 StyleBox["Liquid",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " state point using ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["tdflsh",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/TDFLSH"]], "InlineFormula",
  ExpressionUUID->"0086ffdd-5c93-4a70-97c9-ed41ad021e40"],
 ".  ",
 StyleBox["Note:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  StyleBox["Dv", "TI"]], "InlineFormula",ExpressionUUID->
  "1bdffcb1-139b-4c96-9efe-16c086f97b87"],
 " , ",
 Cell[BoxData[
  StyleBox["xvap", "TI"]], "InlineFormula",ExpressionUUID->
  "3d7dce20-b3fa-4e03-9cab-25c0b48809c4"],
 ", and ",
 Cell[BoxData[
  StyleBox["Q", "TI"]], "InlineFormula",ExpressionUUID->
  "6f573b0d-8d3c-4e5c-bd68-179eb0eb32f4"],
 " are meaningless in this phase, except that negative vapor quality numbers \
indicate the liquid region.  "
}], "MathCaption",
 CellChangeTimes->{{3.822609329353422*^9, 3.82260935617967*^9}, {
  3.822609431052436*^9, 3.8226094494831114`*^9}, {3.823185257093415*^9, 
  3.8231852772485275`*^9}, {3.8231853774375305`*^9, 3.8231854161171074`*^9}},
 CellID->377405426,ExpressionUUID->"62900f43-f39a-4357-9ed7-f651b9879f55"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tpflsh", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["P", "L"], ",", 
      SubscriptBox["z", "Air3"]}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.823183312796649*^9, 3.823183314230785*^9}, {
  3.8231833456547356`*^9, 3.823183387822948*^9}, {3.823184575142457*^9, 
  3.823184594686186*^9}, {3.8231852183101807`*^9, 3.8231852212064304`*^9}, {
  3.82895380582913*^9, 3.8289538084760466`*^9}},
 CellLabel->"In[174]:=",
 CellID->226892160,ExpressionUUID->"8ce4b680-bdfb-43f0-b7f2-d71d6ed641c8"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"D\"\>", 
     TemplateBox[{"24.85289743471931`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dl\"\>", 
     TemplateBox[{"24.85289743471931`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dv\"\>", 
     TemplateBox[{"24.85289743471931`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"xliq\"\>", GridBox[{
       {"0.7812`"},
       {"0.0092`"},
       {"0.2096`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"0.7812`"},
       {"0.0092`"},
       {"0.2096`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", 
     RowBox[{"-", "998.`"}]},
    {"\<\"U\"\>", 
     TemplateBox[{
       RowBox[{"-", "1933.7987711625`"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{
       RowBox[{"-", "1883.498595017007`"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"S\"\>", 
     TemplateBox[{"104.76913347191662`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cv\"\>", 
     TemplateBox[{"27.0679091345367`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{"67.07352575143861`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{"566.2972984748028`", 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"D", 
     Quantity[24.85289743471931, "Liters"^(-1) "Moles"]}, {"Dl", 
     Quantity[24.85289743471931, "Liters"^(-1) "Moles"]}, {"Dv", 
     Quantity[24.85289743471931, "Liters"^(-1) "Moles"]}, {
    "xliq", {0.7812, 0.0092, 0.2096}}, {"xvap", {0.7812, 0.0092, 0.2096}}, {
    "Q", -998.}, {"U", 
     Quantity[-1933.7987711625, "Joules"/"Moles"]}, {"H", 
     Quantity[-1883.498595017007, "Joules"/"Moles"]}, {"S", 
     Quantity[104.76913347191662`, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cv", 
     Quantity[27.0679091345367, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cp", 
     Quantity[67.07352575143861, "Joules" "Kelvins"^(-1)/"Moles"]}, {"W", 
     Quantity[566.2972984748028, "Meters"/"Seconds"]}}]]], "Output",
 CellChangeTimes->{
  3.8226094706983995`*^9, 3.8231834737042403`*^9, 3.8231846169027624`*^9, 
   3.8231852224780283`*^9, {3.828953792060938*^9, 3.8289538121641855`*^9}},
 CellLabel->"Out[174]//TableForm=",
 CellID->70235353,ExpressionUUID->"316d3f66-b01b-473a-90ad-0ce0e20e5d2c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Get the fluid properties at the ",
 StyleBox["Vapor",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " state point using ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["tpflsh",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/tpflsh"]], "InlineFormula",
  ExpressionUUID->"82524df3-6c18-4dbb-bc7d-2adc69de02aa"],
 ".  ",
 StyleBox["Note:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  StyleBox["Dl", "TI"]], "InlineFormula",ExpressionUUID->
  "dd22c3a7-9ffc-4cd9-a204-347cc8851cb6"],
 ", ",
 Cell[BoxData[
  StyleBox["xliq", "TI"]], "InlineFormula",ExpressionUUID->
  "3294dd05-7998-41c7-88c2-1bf6f2df70aa"],
 ", and ",
 Cell[BoxData[
  StyleBox["Q", "TI"]], "InlineFormula",ExpressionUUID->
  "70e9bc4e-8dea-4d39-b66f-d6f6cf53688d"],
 " are meaningless in this phase, except that large positive vapor quality \
numbers indicate the vapor region."
}], "MathCaption",
 CellChangeTimes->{
  3.822609519034119*^9, {3.8231854239650836`*^9, 3.823185499730468*^9}, {
   3.823185665453174*^9, 3.8231856820318317`*^9}},
 CellID->223203423,ExpressionUUID->"824c90bb-512d-4e87-a81c-1831d13258af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tpflsh", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["Psat", "V"], ",", 
      SubscriptBox["z", "Air3"]}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8231846418061557`*^9, 3.823184655606213*^9}, {
  3.8231851291666174`*^9, 3.8231851352303925`*^9}, {3.8231851769906664`*^9, 
  3.8231851771981416`*^9}, {3.823185293982747*^9, 3.823185299557864*^9}, {
  3.828953953347706*^9, 3.828953956652854*^9}},
 CellLabel->"In[175]:=",
 CellID->85340092,ExpressionUUID->"09e11c9d-f45f-4f6f-9c2e-78d09221dd77"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"D\"\>", 
     TemplateBox[{"1.398034345919082`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dl\"\>", 
     TemplateBox[{"1.398034345919082`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dv\"\>", 
     TemplateBox[{"1.398034345919082`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"xliq\"\>", GridBox[{
       {"0.7812`"},
       {"0.0092`"},
       {"0.2096`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"0.7812`"},
       {"0.0092`"},
       {"0.2096`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", "998.`"},
    {"\<\"U\"\>", 
     TemplateBox[{"1886.4880745134112`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{"2610.694105061649`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"S\"\>", 
     TemplateBox[{"146.76259347399517`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cv\"\>", 
     TemplateBox[{"24.05401052466598`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{"43.67354165940334`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{"186.03416544110937`", 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"D", 
     Quantity[1.398034345919082, "Liters"^(-1) "Moles"]}, {"Dl", 
     Quantity[1.398034345919082, "Liters"^(-1) "Moles"]}, {"Dv", 
     Quantity[1.398034345919082, "Liters"^(-1) "Moles"]}, {
    "xliq", {0.7812, 0.0092, 0.2096}}, {"xvap", {0.7812, 0.0092, 0.2096}}, {
    "Q", 998.}, {"U", 
     Quantity[1886.4880745134112`, "Joules"/"Moles"]}, {"H", 
     Quantity[2610.694105061649, "Joules"/"Moles"]}, {"S", 
     Quantity[146.76259347399517`, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cv", 
     Quantity[24.05401052466598, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cp", 
     Quantity[43.67354165940334, "Joules" "Kelvins"^(-1)/"Moles"]}, {"W", 
     Quantity[186.03416544110937`, "Meters"/"Seconds"]}}]]], "Output",
 CellChangeTimes->{
  3.8226095383943005`*^9, 3.8231834889644556`*^9, 3.823184661975206*^9, {
   3.823185145960663*^9, 3.823185178296215*^9}, 3.823185300952135*^9, 
   3.8289539619167814`*^9},
 CellLabel->"Out[175]//TableForm=",
 CellID->62012074,ExpressionUUID->"e552ff8f-b319-4b35-95a6-ffad7130c6ac"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Get the fluid properties at the ",
 StyleBox["2-Phase",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " state point using ",
 Cell[BoxData[
  ButtonBox[
   StyleBox["tpflsh",
    FontWeight->"Bold"],
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/tpflsh"]], "InlineFormula",
  ExpressionUUID->"e461fa79-acff-4030-b1a6-f07907ab4403"],
 "."
}], "MathCaption",
 CellChangeTimes->{
  3.822609565168687*^9, {3.8231856330767717`*^9, 3.8231856564363003`*^9}},
 CellID->71349629,ExpressionUUID->"eba940f1-62df-4ccf-86aa-f62d60f8b3db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"tpflsh", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["P", 
       RowBox[{"2", "\[Phi]"}]], ",", 
      SubscriptBox["z", "Air3"]}], "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8231855595494676`*^9, 3.8231855713180037`*^9}, {
  3.8289540113666034`*^9, 3.8289540163014083`*^9}},
 CellLabel->"In[176]:=",
 CellID->85264410,ExpressionUUID->"95f74d46-2a21-4d0b-a4b3-58914d31c878"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {"\<\"D\"\>", 
     TemplateBox[{"2.415064623098177`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dl\"\>", 
     TemplateBox[{"25.554666091314633`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"Dv\"\>", 
     TemplateBox[{"1.5070660082783682`", 
       RowBox[{
        "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"L\""}], "moles per liter", 
       FractionBox["\"Moles\"", "\"Liters\""]},
      "Quantity"]},
    {"\<\"xliq\"\>", GridBox[{
       {"0.7064661580855593`"},
       {"0.01125046792657658`"},
       {"0.282283373987864`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"xvap\"\>", GridBox[{
       {"0.8309261180121661`"},
       {"0.007835667490320608`"},
       {"0.1612382144975133`"}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.1]}, 
          Offset[0.2]}}]},
    {"\<\"Q\"\>", "0.6004649363418624`"},
    {"\<\"U\"\>", 
     TemplateBox[{"296.9039005983219`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"H\"\>", 
     TemplateBox[{"741.803817988851`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"S\"\>", 
     TemplateBox[{"129.18398183736429`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cv\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99999`*^6"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"Cp\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99998`*^6"}], 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{
       RowBox[{"-", "9.99998`*^6"}], 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  TableForm[{{"D", 
     Quantity[2.415064623098177, "Liters"^(-1) "Moles"]}, {"Dl", 
     Quantity[25.554666091314633`, "Liters"^(-1) "Moles"]}, {"Dv", 
     Quantity[1.5070660082783682`, "Liters"^(-1) "Moles"]}, {
    "xliq", {0.7064661580855593, 0.01125046792657658, 0.282283373987864}}, {
    "xvap", {0.8309261180121661, 0.007835667490320608, 0.1612382144975133}}, {
    "Q", 0.6004649363418624}, {"U", 
     Quantity[296.9039005983219, "Joules"/"Moles"]}, {"H", 
     Quantity[741.803817988851, "Joules"/"Moles"]}, {"S", 
     Quantity[129.18398183736429`, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cv", 
     Quantity[-9.99999*^6, "Joules" "Kelvins"^(-1)/"Moles"]}, {"Cp", 
     Quantity[-9.99998*^6, "Joules" "Kelvins"^(-1)/"Moles"]}, {"W", 
     Quantity[-9.99998*^6, "Meters"/"Seconds"]}}]]], "Output",
 CellChangeTimes->{3.8226096025985727`*^9, 3.823183493450425*^9, 
  3.823185578917631*^9, 3.82895401830904*^9},
 CellLabel->"Out[176]//TableForm=",
 CellID->23706080,ExpressionUUID->"64dc61e0-f970-4582-9a6f-4b058420be74"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 StyleBox["Note:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  StyleBox["Dl", "TI"]], "InlineFormula",ExpressionUUID->
  "bdb0d409-8c5a-4a78-9aa9-121a52896896"],
 ", ",
 Cell[BoxData[
  StyleBox["Dv", "TI"]], "InlineFormula",ExpressionUUID->
  "56f7ae19-9e82-49d3-b380-abd4333e66fc"],
 " and ",
 Cell[BoxData[
  StyleBox["Q", "TI"]], "InlineFormula",ExpressionUUID->
  "4b4745ba-96d8-4d6a-bdc7-0ede748c38b4"],
 " now have the expected values in the 2-phase region; however, ",
 Cell[BoxData[
  StyleBox["Cv", "TI"]], "InlineFormula",ExpressionUUID->
  "227f2b30-afd5-4fe6-a3b5-a5b26eeca21b"],
 ", ",
 Cell[BoxData[
  StyleBox["Cp", "TI"]], "InlineFormula",ExpressionUUID->
  "f6cbd7be-98b3-456b-b7c8-1db3886e349b"],
 ", and ",
 Cell[BoxData[
  StyleBox["W", "TI"]], "InlineFormula",ExpressionUUID->
  "d031f576-d9fe-4ed8-999b-62af8ccdfeb7"],
 " are undefined for a 2-phase fluid and the values returned are meaningless."
}], "Text",
 CellChangeTimes->{{3.8227508528963757`*^9, 3.8227508541659822`*^9}},
 CellID->26121950,ExpressionUUID->"bd5229e2-b6de-445b-aa95-49295369c608"]
}, Open  ]],

Cell[CellGroupData[{

Cell["References", "Section",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.8305999282782993`*^9, 3.830599930070475*^9}},
 CellID->776680,ExpressionUUID->"3e39311c-ef79-4909-920c-f11841f631fa"],

Cell["\<\
1. Eric W. Lemmon, Ian H. Bell, Marcia L. Huber, and Mark O. McLinden, \
REFPROP Documentation, Release 10.0, NIST, May 21, 2018.\
\>", "Text",
 CellChangeTimes->{{3.829459108114297*^9, 3.8294591288957357`*^9}, {
  3.830600083573577*^9, 3.8306001415325193`*^9}},
 CellID->442085681,ExpressionUUID->"76664a0c-c1af-432e-b030-55d942dab537"],

Cell["\<\
2. Campbell, J.M., Gas Conditioning and Processing, Volume 1: The Basic \
Principles, 9th Edition, 2nd Printing, Editors Hubbard, R. and \
Snow\[Dash]McGregor, K., Campbell Petroleum Series, Norman, Oklahoma, 2014.\
\>", "Text",
 CellChangeTimes->{{3.829459108114297*^9, 3.8294591288957357`*^9}, {
  3.830600083573577*^9, 3.8306000910286036`*^9}},
 CellID->645428874,ExpressionUUID->"04ae781a-99ef-4f6c-baec-9ea1611eaa7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "TutorialMoreAboutSection",
 CellID->23220180,ExpressionUUID->"7e428dc7-495a-4373-9a21-b1b3a19b3ab4"],

Cell[TextData[ButtonBox["RefpropLink Guide",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/guide/RefpropLink"]], "TutorialMoreAbout",
 CellChangeTimes->{{3.829554477265361*^9, 3.829554507471608*^9}},
 CellID->1567025153,ExpressionUUID->"ea5801a8-e0c0-4fc2-b2dc-c30069160f88"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Tutorials", "RelatedTutorialsSection",
 CellID->415694126,ExpressionUUID->"ea1fda5c-8bbf-408f-8b3d-be04ea86e75e"],

Cell[TextData[ButtonBox["RefpropLink Overview",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/RefpropLinkOverview"]], "RelatedTutorials",
 CellChangeTimes->{{3.831186766631734*^9, 3.831186789799773*^9}},
 CellID->90776795,ExpressionUUID->"00091cfc-b84c-4a5a-87c6-1802462a14b9"],

Cell[TextData[ButtonBox["RefpropLink Implementation",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/Implementation"]], "RelatedTutorials",
 CellChangeTimes->{{3.8295561633470955`*^9, 3.8295561679617863`*^9}, {
  3.8295562342814484`*^9, 3.829556249907692*^9}},
 CellID->478075264,ExpressionUUID->"ccfda890-1674-41b0-aff9-e49f68b386b2"],

Cell[TextData[ButtonBox["RefpropLink Units",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Units"]], "RelatedTutorials",
 CellChangeTimes->{{3.8228420033543987`*^9, 3.82284201491448*^9}, {
  3.8228714709076233`*^9, 3.8228714710672235`*^9}, {3.830412044782276*^9, 
  3.8304120659027786`*^9}, {3.8308362707733383`*^9, 3.8308362785535274`*^9}, {
  3.8311868283436785`*^9, 3.8311868312479115`*^9}},
 CellID->279695321,ExpressionUUID->"bb21e040-2f8b-4b4c-beb8-c314ef675f34"],

Cell[TextData[ButtonBox["Mixtures (High-Level API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Mixtures"]], "RelatedTutorials",
 CellChangeTimes->{{3.824759646683339*^9, 3.82475966792255*^9}, 
   3.829400058957621*^9, {3.8294001032681904`*^9, 3.8294001079396996`*^9}, 
   3.8294002623015156`*^9, {3.829400441253758*^9, 3.829400441453225*^9}},
 CellID->806871991,ExpressionUUID->"8f264907-00c0-43dd-9bbe-624614983973"],

Cell[TextData[ButtonBox["Pure Fluids (High-Level API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluids"]], "RelatedTutorials",
 CellChangeTimes->{{3.8247596885483713`*^9, 3.824759701802932*^9}, {
   3.829400111932028*^9, 3.829400114955942*^9}, 3.8294002648367386`*^9, {
   3.8294004596505723`*^9, 3.8294004598769665`*^9}},
 CellID->208940830,ExpressionUUID->"da8a8c10-4825-4b8a-91b4-456916609950"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "RelatedTutorials",
 CellChangeTimes->{{3.824759672858325*^9, 3.824759685154475*^9}, {
  3.8294004765424104`*^9, 3.8294004767757864`*^9}},
 CellID->6214240,ExpressionUUID->"6ff42bf7-2496-485a-b40d-e9331d38947e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Wolfram Education Group Courses", "TutorialRelatedLinksSection",
 CellID->415694148,ExpressionUUID->"de5be3d0-6a64-4d0d-8d28-f213f3f69207"],

Cell["XXXX", "TutorialRelatedLinks",
 CellID->415694149,ExpressionUUID->"4c5bc6dd-44c0-4f71-9cf2-8473cc9122fe"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{708, 873},
WindowMargins->{{-1608, Automatic}, {Automatic, 62}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "TutorialPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"60c31ee2-5408-449e-ab8a-c0f8585cc7e1"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 22, "History",ExpressionUUID->"0119ceb4-77e3-452e-983e-35d0e5550bec",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 27, "CategorizationSection",ExpressionUUID->"3e4266bb-bedf-43a8-b25e-b17a37fcf777",
 CellID->1122911449],
Cell[1309, 41, 136, 2, 70, "Categorization",ExpressionUUID->"0fad54d5-2f41-495b-bf06-fed572a88df9",
 CellID->686433507],
Cell[1448, 45, 139, 2, 70, "Categorization",ExpressionUUID->"e5f48e41-9228-446e-90a1-607de2c9a38d",
 CellID->605800465],
Cell[1590, 49, 136, 2, 70, "Categorization",ExpressionUUID->"58facb65-b8be-4d84-866d-27d99e0b5f0d",
 CellID->468444828],
Cell[1729, 53, 138, 1, 70, "Categorization",ExpressionUUID->"72d39620-2e02-4370-afa9-eb3376917fa5"]
}, Closed]],
Cell[CellGroupData[{
Cell[1904, 59, 111, 1, 17, "KeywordsSection",ExpressionUUID->"21ba2287-6c42-4d23-850d-0c0b917e5114",
 CellID->1427428552],
Cell[2018, 62, 173, 2, 17, "Keywords",ExpressionUUID->"4f4282e9-f4ec-47e0-8d42-28ade2410d3d",
 CellID->1251852827],
Cell[2194, 66, 174, 2, 17, "Keywords",ExpressionUUID->"073dcb71-ef09-45b3-bbd2-4e119b683c83",
 CellID->308115743],
Cell[2371, 70, 173, 2, 17, "Keywords",ExpressionUUID->"32dd4011-9567-470e-a355-3b668facd3dd",
 CellID->427627499]
}, Closed]],
Cell[CellGroupData[{
Cell[2581, 77, 108, 1, 17, "DetailsSection",ExpressionUUID->"87d12553-b931-44d1-ac7c-faf707e6a2ae",
 CellID->307771771],
Cell[2692, 80, 198, 3, 31, "Details",ExpressionUUID->"9d3d35ed-4895-4b0e-b0be-57ba6ded6c5d",
 CellID->218895918],
Cell[2893, 85, 198, 3, 31, "Details",ExpressionUUID->"f0b4f65f-f861-4a4e-9136-4eb0d091c089",
 CellID->350963985],
Cell[3094, 90, 199, 3, 31, "Details",ExpressionUUID->"64ce57d1-50d5-45f8-9335-80b4dd17baa6",
 CellID->795871300],
Cell[3296, 95, 126, 2, 31, "Details",ExpressionUUID->"55112165-5f7f-45ec-8815-c91f3042b29f",
 CellID->199739161],
Cell[3425, 99, 115, 2, 31, "Details",ExpressionUUID->"a4696dc6-c059-4f76-93c8-611bd27d1a4a",
 CellID->40625308],
Cell[3543, 103, 116, 2, 31, "Details",ExpressionUUID->"15deecec-75f0-4c6c-a50e-f086cece00c4",
 CellID->357121918],
Cell[3662, 107, 117, 2, 31, "Details",ExpressionUUID->"9e3d539f-5acd-4717-b633-83588f5388c7",
 CellID->35949532],
Cell[3782, 111, 133, 2, 31, "Details",ExpressionUUID->"5a3c0f5e-58c5-4276-b6c1-eb1edd547213",
 CellID->929432370],
Cell[3918, 115, 122, 2, 31, "Details",ExpressionUUID->"1881d5a1-0bcb-42d1-ad12-d193e87cefc0",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4077, 122, 181, 2, 105, "Title",ExpressionUUID->"c2ced554-8351-4ce7-bc24-59c75eb58c74",
 CellID->509267359],
Cell[4261, 126, 1259, 24, 96, "Text",ExpressionUUID->"21864a58-75dd-4f87-b0b8-1fd041b09dcc",
 CellID->1534169418],
Cell[5523, 152, 538, 10, 36, "Text",ExpressionUUID->"86e5f61c-c9a2-4132-8f3b-e0ff70fa1ff1",
 CellID->36100660],
Cell[6064, 164, 984, 22, 51, "Text",ExpressionUUID->"df7c937a-4b4b-4239-b660-4932403cfe55",
 CellID->189076469],
Cell[CellGroupData[{
Cell[7073, 190, 265, 4, 50, "Section",ExpressionUUID->"3ecdadf9-93e9-49c9-8108-0a6228f0594e",
 CellID->43322749],
Cell[7341, 196, 824, 20, 67, "Text",ExpressionUUID->"56700291-0ac1-492b-a023-040f90abe275",
 CellID->573431709],
Cell[CellGroupData[{
Cell[8190, 220, 182, 2, 38, "MathCaption",ExpressionUUID->"a69b1560-9841-4f95-9e80-68d02e5ae3d8",
 CellID->279625114],
Cell[8375, 224, 197, 3, 25, "Input",ExpressionUUID->"92b1f14e-3e36-4ea9-8f0c-3ba690d160e7",
 CellID->713385182]
}, Open  ]],
Cell[CellGroupData[{
Cell[8609, 232, 300, 5, 38, "MathCaption",ExpressionUUID->"1df51396-f51e-4c2b-9f0b-206e8703981f",
 CellID->872464924],
Cell[CellGroupData[{
Cell[8934, 241, 174, 3, 25, "Input",ExpressionUUID->"05fef5f2-0130-482c-9e12-bdf33a3183a5",
 CellID->68619680],
Cell[9111, 246, 637, 11, 32, "Print",ExpressionUUID->"c773f90a-33e3-45dc-8f50-115e89a62142",
 CellID->728193215]
}, Open  ]]
}, Open  ]],
Cell[9775, 261, 615, 12, 51, "Text",ExpressionUUID->"4ff4fa51-539a-450e-8bf9-0da12e16ff69",
 CellID->86903750],
Cell[10393, 275, 733, 14, 81, "Text",ExpressionUUID->"2e37655f-01c3-428b-a1f9-6e53ac8da7aa",
 CellID->159972398]
}, Open  ]],
Cell[CellGroupData[{
Cell[11163, 294, 206, 3, 50, "Section",ExpressionUUID->"2e1ce5e9-2d69-4946-bda9-9fff2b5da8fd",
 CellID->471261456],
Cell[11372, 299, 1482, 29, 78, "DefinitionBox",ExpressionUUID->"fc78f022-b1e7-4bdf-aa66-650ce738d973",
 CellID->2096742444],
Cell[12857, 330, 203, 2, 27, "Caption",ExpressionUUID->"c58695ec-3cc3-4c64-b9be-5934946fdb24",
 CellID->1891092685],
Cell[13063, 334, 1268, 27, 83, "Text",ExpressionUUID->"8ee9ed2f-0df3-40f9-a7d8-20fc14df3fb8",
 CellID->192609466],
Cell[CellGroupData[{
Cell[14356, 365, 186, 2, 38, "Subsection",ExpressionUUID->"a329b6b1-df5c-4a14-accf-39bfc5287517",
 CellID->133116597],
Cell[14545, 369, 1626, 34, 85, "Text",ExpressionUUID->"165031c0-7af1-4a14-b8af-530c03105c7e",
 CellID->18384341],
Cell[16174, 405, 539, 11, 38, "Text",ExpressionUUID->"beb820c9-8b27-4391-a163-c784ce8b7d37",
 CellID->840914914],
Cell[CellGroupData[{
Cell[16738, 420, 241, 4, 38, "MathCaption",ExpressionUUID->"9513397b-1d9f-4ae2-a752-843e685d90a1",
 CellID->94686831],
Cell[CellGroupData[{
Cell[17004, 428, 803, 19, 62, "Input",ExpressionUUID->"cd22343a-58d4-42ff-b08e-880350269a25",
 CellID->560684107],
Cell[17810, 449, 321, 6, 24, "Output",ExpressionUUID->"d52e1c42-2da4-4001-b008-0f4151bf8cc4",
 CellID->183083025]
}, Open  ]]
}, Open  ]],
Cell[18158, 459, 379, 8, 23, "Text",ExpressionUUID->"711aae22-524a-4268-ab25-fa1149d0ce51",
 CellID->450459046],
Cell[CellGroupData[{
Cell[18562, 471, 249, 4, 38, "MathCaption",ExpressionUUID->"73e544c0-2307-4b09-8ae0-7d68377c67ba",
 CellID->310218064],
Cell[CellGroupData[{
Cell[18836, 479, 331, 8, 25, "Input",ExpressionUUID->"51157af2-3f15-42c1-bd47-0a126236ce41",
 CellID->371267101],
Cell[19170, 489, 452, 11, 36, "Output",ExpressionUUID->"69951bfa-8c33-42bd-b300-c6237bd86d98",
 CellID->636514693]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19683, 507, 240, 3, 38, "Subsection",ExpressionUUID->"7e53fd15-70a3-4167-b7a5-987cdd38a2fc",
 CellID->44886640],
Cell[19926, 512, 640, 13, 66, "Text",ExpressionUUID->"db892a8c-ba07-49c7-9942-d19044e28c37",
 CellID->678210058],
Cell[CellGroupData[{
Cell[20591, 529, 213, 2, 38, "MathCaption",ExpressionUUID->"5007a39f-8c53-4d37-aad7-fec9ce22ed02",
 CellID->230227444],
Cell[CellGroupData[{
Cell[20829, 535, 285, 6, 25, "Input",ExpressionUUID->"ab7b05e1-5412-4164-b4de-07ee0f57650e",
 CellID->16465047],
Cell[21117, 543, 288, 5, 24, "Output",ExpressionUUID->"1939ac7e-a503-4165-9a6d-09ca8924ef4f",
 CellID->190227484]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21454, 554, 249, 4, 38, "MathCaption",ExpressionUUID->"cf66987f-0b7a-47be-b0c2-9ec2235b7b2a",
 CellID->385801605],
Cell[CellGroupData[{
Cell[21728, 562, 344, 8, 25, "Input",ExpressionUUID->"5d193686-4831-4c56-b7cd-5bbef03ca861",
 CellID->156280047],
Cell[22075, 572, 476, 11, 36, "Output",ExpressionUUID->"ab2c582c-e102-45f0-a06b-3a672b2b818d",
 CellID->115367962]
}, Open  ]]
}, Open  ]],
Cell[22578, 587, 805, 16, 68, "Text",ExpressionUUID->"f38e9b06-a872-4026-8136-954dd9ba5c2a",
 CellID->747896140],
Cell[23386, 605, 431, 7, 51, "Text",ExpressionUUID->"7223b4f5-6b3a-431a-b658-3e1e2bcdbb05",
 CellID->89322858]
}, Open  ]],
Cell[CellGroupData[{
Cell[23854, 617, 194, 2, 38, "Subsection",ExpressionUUID->"6f0763f9-47fb-4760-a932-b7d981cb61dc",
 CellID->3660113],
Cell[24051, 621, 1070, 25, 67, "Text",ExpressionUUID->"18137609-b792-4d59-be85-f6021647b5e0",
 CellID->219397012],
Cell[25124, 648, 444, 17, 192, "Text",ExpressionUUID->"09513cd8-e135-402e-892e-3e8dacd98840",
 CellID->712019736],
Cell[25571, 667, 252, 3, 27, "Caption",ExpressionUUID->"45bc40e8-6422-4cab-84c5-08636012db67",
 CellID->200475462],
Cell[25826, 672, 650, 10, 81, "Text",ExpressionUUID->"24253353-764f-46db-8aa5-937184c3a610",
 CellID->66519272],
Cell[26479, 684, 1116, 29, 53, "Text",ExpressionUUID->"85f2b147-efd7-430d-a205-7ee978974a36",
 CellID->261721614],
Cell[27598, 715, 643, 14, 52, "Text",ExpressionUUID->"a2aa6123-70ea-4508-93a6-2a023f7a5d2b",
 CellID->305891491],
Cell[CellGroupData[{
Cell[28266, 733, 339, 6, 38, "MathCaption",ExpressionUUID->"79d063b5-31a7-4da4-a848-87b54f8f31ca",
 CellID->836781195],
Cell[CellGroupData[{
Cell[28630, 743, 239, 4, 25, "Input",ExpressionUUID->"731e8ace-3841-4722-bf93-7424de62f43a",
 CellID->2058623809],
Cell[28872, 749, 603, 15, 24, "Output",ExpressionUUID->"8789ba8a-f1d1-4872-ad6c-2fe7e024e5c6",
 CellID->217589838]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29524, 770, 414, 7, 52, "MathCaption",ExpressionUUID->"673aaf2b-634c-4bd5-be38-8db1db58900a",
 CellID->201793012],
Cell[CellGroupData[{
Cell[29963, 781, 598, 14, 25, "Input",ExpressionUUID->"19595f5e-7907-4d89-84f8-b4c4532b4d2f",
 CellID->286397801],
Cell[30564, 797, 686, 15, 24, "Output",ExpressionUUID->"408f80f9-22e6-4170-b5db-bf3d759bec24",
 CellID->199766943]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31299, 818, 200, 2, 38, "MathCaption",ExpressionUUID->"98ea28e7-caed-49a8-a408-324e5a8c7aaa",
 CellID->77012676],
Cell[CellGroupData[{
Cell[31524, 824, 427, 11, 25, "Input",ExpressionUUID->"fd5eb975-f87f-4811-a183-af108b7eb2f6",
 CellID->13326163],
Cell[31954, 837, 856, 21, 52, "Output",ExpressionUUID->"a87d28cd-205d-4888-b633-5cec739e82c8",
 CellID->158365068]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32859, 864, 384, 8, 40, "MathCaption",ExpressionUUID->"c3731a79-f2fe-4548-a7f9-eaf54c9aa11a",
 CellID->11719281],
Cell[CellGroupData[{
Cell[33268, 876, 306, 7, 25, "Input",ExpressionUUID->"2379b402-6e4b-4ea9-a590-3efa225b9596",
 CellID->21137868],
Cell[33577, 885, 383, 6, 24, "Output",ExpressionUUID->"cc637db0-c14d-4128-80ba-060bd4aa9165",
 CellID->9564997]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34009, 897, 249, 4, 38, "MathCaption",ExpressionUUID->"d13f12fd-173f-4ea2-a198-55e9d5476477",
 CellID->153553872],
Cell[CellGroupData[{
Cell[34283, 905, 431, 10, 25, "Input",ExpressionUUID->"1ae1bff0-c63e-45aa-b189-130b5729a8a0",
 CellID->513823176],
Cell[34717, 917, 504, 12, 36, "Output",ExpressionUUID->"e959ce05-a3f6-49f1-8232-f4a4037ba4e9",
 CellID->758318031]
}, Open  ]]
}, Open  ]],
Cell[35248, 933, 319, 5, 36, "Text",ExpressionUUID->"1b00d81e-2265-46b8-90c2-88e1c637ae75",
 CellID->76538233]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35616, 944, 216, 3, 50, "Section",ExpressionUUID->"d44dd33c-ced6-4988-8fcf-0a9dc6c63e7b",
 CellID->347120648],
Cell[35835, 949, 385, 7, 36, "Text",ExpressionUUID->"4a7d6571-98de-41e3-8975-589598cc04be",
 CellID->22646652],
Cell[36223, 958, 1129, 24, 80, "DefinitionBox",ExpressionUUID->"694b57a7-d0be-4457-b85e-a5124de5cfba",
 CellID->26358768],
Cell[37355, 984, 183, 2, 27, "Caption",ExpressionUUID->"9cbbbac5-6641-435e-be54-def4d706d97e",
 CellID->197256598],
Cell[37541, 988, 531, 11, 38, "Text",ExpressionUUID->"350e646f-d770-47f0-8768-a9a5ed5b4421",
 CellID->149164589],
Cell[CellGroupData[{
Cell[38097, 1003, 238, 3, 38, "MathCaption",ExpressionUUID->"875c2cc4-1902-45c2-9146-b4d323041228",
 CellID->34664985],
Cell[CellGroupData[{
Cell[38360, 1010, 506, 11, 25, "Input",ExpressionUUID->"f3d0caae-9f16-4c27-8b25-52400c0cedf1",
 CellID->201708715],
Cell[38869, 1023, 440, 9, 24, "Output",ExpressionUUID->"22b1e45f-7a34-43a9-8537-6ce0ed382300",
 CellID->11222767]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39358, 1038, 410, 11, 39, "MathCaption",ExpressionUUID->"c2e62788-2a40-4c0c-b4f3-90a679dbabd5",
 CellID->248698509],
Cell[CellGroupData[{
Cell[39793, 1053, 475, 9, 25, "Input",ExpressionUUID->"06164b17-3d28-4f0c-9dcc-6a126a36d79c",
 CellID->412622337],
Cell[40271, 1064, 524, 10, 24, "Output",ExpressionUUID->"a18076ff-0aad-4125-b220-a056c18ff8f2",
 CellID->637068473]
}, Open  ]],
Cell[CellGroupData[{
Cell[40832, 1079, 308, 6, 25, "Input",ExpressionUUID->"37e959a2-5dff-44ec-a649-cc92d03b45db",
 CellID->901849200],
Cell[41143, 1087, 398, 8, 24, "Output",ExpressionUUID->"24d10afb-db7d-48a3-b4c4-03433bdce262",
 CellID->140384622]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[41602, 1102, 221, 3, 50, "Section",ExpressionUUID->"4dd37886-220b-4f89-806b-9039a50cc08b",
 CellID->419820630],
Cell[41826, 1107, 1627, 34, 84, "Text",ExpressionUUID->"4f0db87a-af5e-44cb-a868-557713c98904",
 CellID->779510363],
Cell[43456, 1143, 1840, 39, 96, "DefinitionBox",ExpressionUUID->"492ba6c3-ffe7-40ab-b08c-32a909a74c56",
 CellID->512486044],
Cell[45299, 1184, 239, 3, 27, "Caption",ExpressionUUID->"cc29f956-333f-4d1c-9f70-eea6644e38b2",
 CellID->357994911],
Cell[45541, 1189, 537, 11, 38, "Text",ExpressionUUID->"f8dd8b18-e13c-4cd1-93df-b9d9a93fa6f6",
 CellID->166758029],
Cell[CellGroupData[{
Cell[46103, 1204, 277, 3, 38, "MathCaption",ExpressionUUID->"35bee085-dec3-4c70-a112-aa768ee5abcf",
 CellID->491525495],
Cell[46383, 1209, 404, 11, 25, "Input",ExpressionUUID->"9175c296-f8cd-4a1c-a774-b442824496b1",
 CellID->567335648]
}, Open  ]],
Cell[CellGroupData[{
Cell[46824, 1225, 270, 3, 38, "MathCaption",ExpressionUUID->"4e442ca0-8fd0-47ef-ac4c-887487b6032e",
 CellID->65680357],
Cell[CellGroupData[{
Cell[47119, 1232, 294, 6, 25, "Input",ExpressionUUID->"f8403b7a-64bf-47b1-a968-78d09a798063",
 CellID->226840327],
Cell[47416, 1240, 2065, 47, 94, "Output",ExpressionUUID->"1b077fef-55ba-49ac-8b56-d9e3cbf9c3b7",
 CellID->325598844]
}, Open  ]],
Cell[CellGroupData[{
Cell[49518, 1292, 276, 5, 25, "Input",ExpressionUUID->"2f51b01f-d58a-4e9c-a460-5196a4de4759",
 CellID->42575265],
Cell[49797, 1299, 2064, 48, 94, "Output",ExpressionUUID->"708a5377-07d2-4a81-b543-38157252d139",
 CellID->180889145]
}, Open  ]],
Cell[CellGroupData[{
Cell[51898, 1352, 298, 6, 25, "Input",ExpressionUUID->"7a2b3527-d0b4-43a5-9f89-206c115a7724",
 CellID->265246689],
Cell[52199, 1360, 2040, 47, 94, "Output",ExpressionUUID->"45bef6bc-5714-4c19-867f-a9b42272a6c3",
 CellID->416802579]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54288, 1413, 218, 2, 38, "MathCaption",ExpressionUUID->"c4c78d7a-bd99-4283-9377-0212b1f160b7",
 CellID->64926290],
Cell[CellGroupData[{
Cell[54531, 1419, 345, 7, 25, "Input",ExpressionUUID->"d3a475f9-119f-44b1-8cba-543410730186",
 CellID->757829423],
Cell[54879, 1428, 638, 14, 36, "Output",ExpressionUUID->"2bf1a6ab-a24e-45f7-b372-d61f4e5061be",
 CellID->790227046]
}, Open  ]],
Cell[CellGroupData[{
Cell[55554, 1447, 332, 6, 25, "Input",ExpressionUUID->"ed69d732-22ea-46fa-bc93-2fa294205e60",
 CellID->597807854],
Cell[55889, 1455, 1305, 31, 36, "Output",ExpressionUUID->"b4b78695-bfa8-4a1f-b021-89c30c446621",
 CellID->25639691]
}, Open  ]]
}, Open  ]],
Cell[57221, 1490, 490, 11, 36, "Text",ExpressionUUID->"4fe22893-84d3-4980-8cc1-4030dda03f01",
 CellID->37927974],
Cell[CellGroupData[{
Cell[57736, 1505, 278, 4, 38, "MathCaption",ExpressionUUID->"6df2264a-8384-4404-ab7b-595d01861654",
 CellID->233936263],
Cell[CellGroupData[{
Cell[58039, 1513, 479, 12, 25, "Input",ExpressionUUID->"01cbd643-fd27-48b0-a184-0857d75de7b9",
 CellID->162122976],
Cell[58521, 1527, 582, 12, 35, "Output",ExpressionUUID->"9393bbe0-2112-4ad7-b267-2a2ecd96853e",
 CellID->74074630]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59152, 1545, 265, 3, 38, "MathCaption",ExpressionUUID->"4918239f-0ac6-4ef3-a985-6d4647d1a6d2",
 CellID->321473136],
Cell[CellGroupData[{
Cell[59442, 1552, 303, 6, 25, "Input",ExpressionUUID->"3e3f28a1-729d-4b4e-8277-2d6882afde19",
 CellID->233993686],
Cell[59748, 1560, 641, 12, 55, "Message",ExpressionUUID->"cdc4a290-bad1-434d-9b2d-d141a6a07b91",
 CellID->662801370],
Cell[60392, 1574, 884, 19, 36, "Output",ExpressionUUID->"e1b88af4-bc51-48f4-a644-9c5fc2e7f35c",
 CellID->168202018]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[61337, 1600, 212, 3, 50, "Section",ExpressionUUID->"61619d37-1e9a-4a3d-9221-a13d655a6fad",
 CellID->7569461],
Cell[61552, 1605, 465, 7, 51, "Text",ExpressionUUID->"58057b24-79a1-4d55-8515-8aab51ecba69",
 CellID->594464066],
Cell[62020, 1614, 494, 8, 51, "Text",ExpressionUUID->"d54212ef-63d7-4226-b863-501d780bed6b",
 CellID->92632341],
Cell[62517, 1624, 911, 20, 53, "Text",ExpressionUUID->"e4ffd94f-d4de-424e-b2c9-b111690c9970",
 CellID->395169496],
Cell[63431, 1646, 1053, 20, 41, "DefinitionBox",ExpressionUUID->"7460456b-7c2d-4455-a239-787b7ee32178",
 CellID->184672383],
Cell[64487, 1668, 286, 4, 27, "Caption",ExpressionUUID->"e6eb19b8-99a1-4047-9d84-1428b69b8c3d",
 CellID->191781415],
Cell[64776, 1674, 277, 5, 36, "Text",ExpressionUUID->"4c9ec733-196a-4486-883a-c83547e1cc46",
 CellID->164317926],
Cell[CellGroupData[{
Cell[65078, 1683, 275, 4, 38, "MathCaption",ExpressionUUID->"f9d01ac1-e976-4701-9de2-f8f2abe9e650",
 CellID->302727579],
Cell[CellGroupData[{
Cell[65378, 1691, 301, 6, 25, "Input",ExpressionUUID->"9472f7b5-6cda-4975-8548-dbe2fa658c08",
 CellID->244604783],
Cell[65682, 1699, 1047, 24, 69, "Output",ExpressionUUID->"8fe0ed11-c4cb-43e5-b78a-f564e3b87a3f",
 CellID->114087092]
}, Open  ]]
}, Open  ]],
Cell[66756, 1727, 931, 21, 57, "Text",ExpressionUUID->"3bf180f3-16db-4f5a-9a90-0ff5e5d3c3fd",
 CellID->26942572],
Cell[CellGroupData[{
Cell[67712, 1752, 430, 9, 40, "MathCaption",ExpressionUUID->"33399e68-f994-4003-8783-ecaa61591ac7",
 CellID->157835903],
Cell[CellGroupData[{
Cell[68167, 1765, 386, 8, 25, "Input",ExpressionUUID->"a2537911-499f-4d03-b85d-55f995e53704",
 CellID->321034895],
Cell[68556, 1775, 1044, 23, 69, "Output",ExpressionUUID->"7a62e2c9-8ba3-4fb0-a94c-993fb7ee035d",
 CellID->171060220]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[69661, 1805, 216, 3, 50, "Section",ExpressionUUID->"a77687c8-044a-48b5-a639-bb4fc4391b9b",
 CellID->81573596],
Cell[69880, 1810, 972, 17, 52, "Text",ExpressionUUID->"4fc47434-c232-4f96-b6bd-194b3749fb6c",
 CellID->223759463],
Cell[70855, 1829, 2637, 63, 140, "DefinitionBox",ExpressionUUID->"5fa20bdb-ef41-4276-b468-8c40a75c5397",
 CellID->31537542],
Cell[73495, 1894, 252, 3, 27, "Caption",ExpressionUUID->"0f803570-7824-4e79-917d-576c3978a0f6",
 CellID->41284769],
Cell[73750, 1899, 653, 12, 38, "Text",ExpressionUUID->"342cb434-599c-4f43-a309-58bafda1b237",
 CellID->22445341],
Cell[CellGroupData[{
Cell[74428, 1915, 243, 4, 38, "MathCaption",ExpressionUUID->"24e71f9b-1e6e-4082-b0a5-c33baadf687e",
 CellID->180532038],
Cell[CellGroupData[{
Cell[74696, 1923, 550, 13, 62, "Input",ExpressionUUID->"b6752d14-fba5-44f2-9aa8-4c62b451be59",
 CellID->407265150],
Cell[75249, 1938, 591, 13, 36, "Output",ExpressionUUID->"b3acb3b6-fc3f-4f41-b3c4-a1fd17848ca8",
 CellID->71957182]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[75889, 1957, 365, 7, 52, "MathCaption",ExpressionUUID->"45c1ee06-0bea-42f8-bd78-90ce5ae97b15",
 CellID->8437832],
Cell[CellGroupData[{
Cell[76279, 1968, 491, 12, 25, "Input",ExpressionUUID->"6c9c3bef-e790-4b4b-bde4-25cf441d278c",
 CellID->551555729],
Cell[76773, 1982, 498, 11, 34, "Output",ExpressionUUID->"9bfb3412-c43f-44f4-8946-c76888f836a0",
 CellID->97973703]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[77320, 1999, 242, 4, 38, "MathCaption",ExpressionUUID->"35ca56f4-f508-4139-9587-1c648ebaa5d1",
 CellID->487281549],
Cell[CellGroupData[{
Cell[77587, 2007, 292, 7, 25, "Input",ExpressionUUID->"60ed5766-b616-4b8e-88c0-c63d214684df",
 CellID->285754145],
Cell[77882, 2016, 447, 10, 34, "Output",ExpressionUUID->"86cd6d6a-fccc-4ca4-8b75-356af1339d6a",
 CellID->227239537]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[78378, 2032, 305, 6, 38, "MathCaption",ExpressionUUID->"5bc6437d-93db-4991-91cc-1fd845cc971d",
 CellID->605696421],
Cell[CellGroupData[{
Cell[78708, 2042, 398, 9, 25, "Input",ExpressionUUID->"c0efd010-9204-414a-a58b-e2af4d5db59c",
 CellID->59795828],
Cell[79109, 2053, 562, 12, 35, "Output",ExpressionUUID->"ebe26d6f-ee18-454e-9a0b-ecafab412f16",
 CellID->327865437]
}, Open  ]]
}, Open  ]],
Cell[79698, 2069, 482, 8, 51, "Text",ExpressionUUID->"054f80b2-48d0-4fcf-a2ad-3e028de7c7a0",
 CellID->279852391],
Cell[CellGroupData[{
Cell[80205, 2081, 221, 2, 38, "MathCaption",ExpressionUUID->"952c332d-79f9-4137-ae35-f9218e03f0f6",
 CellID->181133623],
Cell[CellGroupData[{
Cell[80451, 2087, 277, 6, 25, "Input",ExpressionUUID->"fb8171ef-1c4e-45b1-b81f-ad2fdf849201",
 CellID->164488048],
Cell[80731, 2095, 2681, 65, 96, "Output",ExpressionUUID->"5f57c691-d04d-4f88-91d5-5d1629f00953",
 CellID->558021486]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[83461, 2166, 249, 4, 38, "MathCaption",ExpressionUUID->"e6e7db3a-a1bc-4d9d-a67b-0f1426297ce1",
 CellID->25977314],
Cell[CellGroupData[{
Cell[83735, 2174, 502, 14, 25, "Input",ExpressionUUID->"5e97971f-dc46-4b11-a546-30dfe7795943",
 CellID->631796029],
Cell[84240, 2190, 2295, 57, 66, "Output",ExpressionUUID->"aaefda74-a803-4409-bb6f-a16a108e71a2",
 CellID->75837025]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[86584, 2253, 308, 6, 38, "MathCaption",ExpressionUUID->"ee695c24-9518-4889-b6e0-fb28a11de0e1",
 CellID->249882416],
Cell[CellGroupData[{
Cell[86917, 2263, 278, 6, 25, "Input",ExpressionUUID->"aa707fda-d40a-416a-8889-2c566d10cec3",
 CellID->274906393],
Cell[87198, 2271, 496, 12, 36, "Output",ExpressionUUID->"6f828949-270f-48c8-8285-8a315888a769",
 CellID->370573076]
}, Open  ]],
Cell[CellGroupData[{
Cell[87731, 2288, 275, 6, 25, "Input",ExpressionUUID->"5963bef2-934f-44b0-bf95-d877929b9d52",
 CellID->262375583],
Cell[88009, 2296, 604, 14, 36, "Output",ExpressionUUID->"8965e3b4-480e-40b3-ad2d-09999708d5e5",
 CellID->41557483]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[88674, 2317, 215, 3, 50, "Section",ExpressionUUID->"c76de0b5-a116-458e-b867-3a7bd6c3142c",
 CellID->499279020],
Cell[88892, 2322, 1439, 23, 97, "Text",ExpressionUUID->"20316501-45ba-4577-a2ae-42a1b5f7e4ed",
 CellID->67387048],
Cell[90334, 2347, 3144, 74, 253, "DefinitionBox",ExpressionUUID->"ce62770c-c9a7-45f1-9b59-63ac19334ca2",
 CellID->16201561],
Cell[93481, 2423, 306, 4, 27, "Caption",ExpressionUUID->"1d783bd2-ade5-41f2-9f04-5dae7ec44592",
 CellID->79998218],
Cell[93790, 2429, 1367, 21, 126, "Text",ExpressionUUID->"15f7d272-34c2-4da2-bf1f-865836858ed2",
 CellID->70163520],
Cell[95160, 2452, 43459, 718, 295, "Text",ExpressionUUID->"0860729b-9a4f-4465-ad40-9746e1041db7",
 CellID->372869032],
Cell[138622, 3172, 466, 9, 27, "Caption",ExpressionUUID->"5b73662e-2826-4359-92b2-67e19b9624af",
 CellID->209083968],
Cell[139091, 3183, 1312, 24, 126, "Text",ExpressionUUID->"cbaeae37-1d96-4721-91d1-da12b3a8858b",
 CellID->231316985],
Cell[CellGroupData[{
Cell[140428, 3211, 250, 3, 38, "Subsection",ExpressionUUID->"999d8f87-3401-430f-9588-44ffcacdb7d1",
 CellID->567477762],
Cell[140681, 3216, 1212, 22, 97, "Text",ExpressionUUID->"39dcbe87-1f70-4187-950d-aa8c1a25ab86",
 CellID->311551272],
Cell[CellGroupData[{
Cell[141918, 3242, 203, 2, 38, "MathCaption",ExpressionUUID->"f00c243f-35cd-4743-b1a7-87f4efe11633",
 CellID->29506500],
Cell[CellGroupData[{
Cell[142146, 3248, 249, 5, 25, "Input",ExpressionUUID->"eba0f016-5c21-492b-9fd8-ec449117689e",
 CellID->494723839],
Cell[142398, 3255, 447, 9, 19, "Message",ExpressionUUID->"fef36660-87db-4fab-8a41-a601f3004d13",
 CellID->59744434]
}, Open  ]]
}, Open  ]],
Cell[142872, 3268, 1316, 28, 82, "Text",ExpressionUUID->"3032d8fc-eb2b-45df-aa24-66049c275407",
 CellID->139545294],
Cell[144191, 3298, 305, 6, 36, "Text",ExpressionUUID->"a467ecec-0117-4f43-875e-8f59c8cc60cf",
 CellID->154180583],
Cell[CellGroupData[{
Cell[144521, 3308, 570, 12, 39, "MathCaption",ExpressionUUID->"21c59c1d-5260-44ae-b866-4a8f5b011ed3",
 CellID->238846190],
Cell[CellGroupData[{
Cell[145116, 3324, 250, 5, 25, "Input",ExpressionUUID->"8ead2365-5b99-4921-b066-24d3d34ae1e2",
 CellID->409295402],
Cell[145369, 3331, 957, 20, 36, "Output",ExpressionUUID->"fe84d20d-11d4-40a7-aa55-a59c101ea71a",
 CellID->56783416]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[146375, 3357, 568, 12, 39, "MathCaption",ExpressionUUID->"83aa7e9d-dc03-4cca-b30c-16321661d2af",
 CellID->425116522],
Cell[CellGroupData[{
Cell[146968, 3373, 299, 6, 25, "Input",ExpressionUUID->"77d77289-daa9-48fa-b467-40486277b766",
 CellID->21873860],
Cell[147270, 3381, 995, 21, 36, "Output",ExpressionUUID->"63c26a39-9857-4f38-ab6f-03dbead7afc2",
 CellID->35467492]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[148314, 3408, 568, 12, 39, "MathCaption",ExpressionUUID->"55e1cfe1-b99c-4860-a764-1e86bfcc00f4",
 CellID->200205726],
Cell[CellGroupData[{
Cell[148907, 3424, 299, 6, 25, "Input",ExpressionUUID->"cc6fe76c-c115-41cd-83b5-a5f545e13951",
 CellID->43326131],
Cell[149209, 3432, 989, 21, 36, "Output",ExpressionUUID->"b603a3ef-b299-4112-8fb4-021b6348e87b",
 CellID->125432604]
}, Open  ]]
}, Open  ]],
Cell[150225, 3457, 815, 14, 96, "Text",ExpressionUUID->"3169a8be-afab-4138-aa43-dfdfc1d7d29c",
 CellID->157606356]
}, Open  ]],
Cell[CellGroupData[{
Cell[151077, 3476, 208, 2, 38, "Subsection",ExpressionUUID->"248991fb-b258-4bb3-a293-f0f73ac4fcc7",
 CellID->621187301],
Cell[151288, 3480, 1566, 31, 74, "Text",ExpressionUUID->"b7fa4aba-bfc1-4d5c-9c77-b485f25ada53",
 CellID->5091374],
Cell[152857, 3513, 1163, 29, 54, "Text",ExpressionUUID->"3cfda1a3-8b67-4bda-9962-47d1eea3fe3c",
 CellID->751738544],
Cell[CellGroupData[{
Cell[154045, 3546, 405, 7, 38, "MathCaption",ExpressionUUID->"00e45bb5-bbe2-4735-b3d5-816a0e029345",
 CellID->422065167],
Cell[CellGroupData[{
Cell[154475, 3557, 1319, 36, 98, "Input",ExpressionUUID->"c523dd96-ce36-482e-9340-f5892fe5547a",
 CellID->80172452],
Cell[155797, 3595, 1364, 35, 65, "Output",ExpressionUUID->"0889d62c-4216-4054-8dfc-971dac2c2b5b",
 CellID->46555039]
}, Open  ]],
Cell[CellGroupData[{
Cell[157198, 3635, 359, 8, 25, "Input",ExpressionUUID->"df3ed6ef-2fde-490c-80f6-a1915ffe0cac",
 CellID->266881938],
Cell[157560, 3645, 1340, 33, 65, "Output",ExpressionUUID->"eec90641-10dd-4f7d-a1df-e6d221069758",
 CellID->98172478]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[158949, 3684, 585, 12, 66, "MathCaption",ExpressionUUID->"91ead16e-5326-496b-9382-47ba68bc1830",
 CellID->20008703],
Cell[CellGroupData[{
Cell[159559, 3700, 706, 18, 25, "Input",ExpressionUUID->"5b928ed6-c5ca-4cd2-9b2f-6565b23928ae",
 CellID->191923330],
Cell[160268, 3720, 657, 16, 36, "Output",ExpressionUUID->"7b00ff51-494a-4ef6-a35b-67400daedcc5",
 CellID->148248467]
}, Open  ]],
Cell[CellGroupData[{
Cell[160962, 3741, 590, 17, 25, "Input",ExpressionUUID->"0c5b080e-ae43-4ae0-a916-446640c9fd1d",
 CellID->475198934],
Cell[161555, 3760, 654, 16, 36, "Output",ExpressionUUID->"37c93a48-301f-44c1-8533-0129e72eff42",
 CellID->446787539]
}, Open  ]]
}, Open  ]],
Cell[162236, 3780, 1140, 20, 67, "Text",ExpressionUUID->"c1b79b20-302a-42ae-86eb-5183a914616e",
 CellID->125930538]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[163425, 3806, 325, 5, 50, "Section",ExpressionUUID->"3cd8d4b1-1f08-4a1c-b576-bfda0260ae32",
 CellID->221654001],
Cell[163753, 3813, 489, 8, 51, "Text",ExpressionUUID->"86487634-9ab5-486b-9025-f858a0d45b45",
 CellID->9091236],
Cell[164245, 3823, 454, 9, 36, "Text",ExpressionUUID->"3a7b232d-d184-4d0f-ad87-83a33d929848",
 CellID->264899],
Cell[CellGroupData[{
Cell[164724, 3836, 294, 5, 38, "MathCaption",ExpressionUUID->"470c65e8-17f5-4430-8478-df1acfdc238f",
 CellID->357286776],
Cell[CellGroupData[{
Cell[165043, 3845, 583, 14, 25, "Input",ExpressionUUID->"61663eee-b685-4b29-8647-5183e829e374",
 CellID->485197918],
Cell[165629, 3861, 430, 10, 33, "Output",ExpressionUUID->"bbc54654-087c-47f8-98f6-897b0bec7c60",
 CellID->22768657]
}, Open  ]],
Cell[CellGroupData[{
Cell[166096, 3876, 402, 10, 25, "Input",ExpressionUUID->"283d2d25-370b-4a57-86ce-89ea7d86f507",
 CellID->265844835],
Cell[166501, 3888, 274, 5, 33, "Output",ExpressionUUID->"a8a4c977-82e6-4e42-9e03-d6beb304525f",
 CellID->100916493]
}, Open  ]],
Cell[CellGroupData[{
Cell[166812, 3898, 813, 22, 25, "Input",ExpressionUUID->"6dc7b28a-7ea1-478a-bdb7-f34acc815099",
 CellID->416141054],
Cell[167628, 3922, 339, 6, 33, "Output",ExpressionUUID->"2208cc4e-23a7-4666-9f00-e65c3dedb1e1",
 CellID->506015586]
}, Open  ]],
Cell[CellGroupData[{
Cell[168004, 3933, 523, 12, 25, "Input",ExpressionUUID->"7a5c1e75-e93b-480c-bcfa-42f42922827a",
 CellID->20519628],
Cell[168530, 3947, 418, 9, 33, "Output",ExpressionUUID->"da4648e0-fb40-4d15-9980-2c4a3c78c60f",
 CellID->292491601]
}, Open  ]],
Cell[CellGroupData[{
Cell[168985, 3961, 444, 11, 25, "Input",ExpressionUUID->"f93c7e8b-c4bb-40d1-bf2a-40d74bad761b",
 CellID->157226984],
Cell[169432, 3974, 376, 7, 33, "Output",ExpressionUUID->"486b5783-605a-4565-9d86-368e774b9cbc",
 CellID->162548345]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[169857, 3987, 190, 2, 38, "MathCaption",ExpressionUUID->"67da442e-f5e9-4da5-9c1c-7749e3c508b9",
 CellID->537344581],
Cell[170050, 3991, 3728, 90, 242, "Input",ExpressionUUID->"e411f904-a98c-4f0d-b4d5-e9cb8bc9f4fc",
 CellID->56059221]
}, Open  ]],
Cell[CellGroupData[{
Cell[173815, 4086, 188, 2, 38, "MathCaption",ExpressionUUID->"9d71ff6a-fed8-4fc0-930e-5c6e1c52d020",
 CellID->451204585],
Cell[174006, 4090, 3794, 101, 260, "Input",ExpressionUUID->"7ec79976-1fd4-496e-8867-14983742430d",
 CellID->9284284]
}, Open  ]],
Cell[CellGroupData[{
Cell[177837, 4196, 177, 2, 38, "MathCaption",ExpressionUUID->"fc36c012-eee5-4a13-ac5a-7d0d376624ca",
 CellID->391770430],
Cell[CellGroupData[{
Cell[178039, 4202, 1132, 24, 80, "Input",ExpressionUUID->"f0803a9b-c7cc-438d-8180-de6e1d13201c",
 CellID->453853607],
Cell[179174, 4228, 44538, 925, 404, "Output",ExpressionUUID->"f0c0d519-0564-4f65-9939-65c02ec3bd8d",
 CellID->513342672]
}, Open  ]]
}, Open  ]],
Cell[223739, 5157, 479, 8, 51, "Text",ExpressionUUID->"7f51e4cb-d8a0-4569-baf2-2cf6e60e1af3",
 CellID->464233227]
}, Open  ]],
Cell[CellGroupData[{
Cell[224255, 5170, 218, 3, 50, "Section",ExpressionUUID->"c706e3e2-d0f9-4333-8636-26cd6a255c9b",
 CellID->144976092],
Cell[224476, 5175, 1554, 25, 97, "Text",ExpressionUUID->"86e0ca2e-0b06-4ee1-95fb-39cb557706bf",
 CellID->284819056],
Cell[226033, 5202, 2888, 72, 220, "DefinitionBox",ExpressionUUID->"14654938-304b-494c-975d-4235aef4ed68",
 CellID->530103452],
Cell[228924, 5276, 336, 4, 27, "Caption",ExpressionUUID->"26f1062a-9fb6-46c6-bd1f-61eb4c15831b",
 CellID->46550640],
Cell[229263, 5282, 670, 13, 23, "Text",ExpressionUUID->"b87c8e63-0b84-40eb-baf9-e64648494166",
 CellID->398580332],
Cell[229936, 5297, 1416, 33, 86, "Text",ExpressionUUID->"f3325871-9774-458f-bcc7-7c65d89b88ec",
 CellID->203140561],
Cell[231355, 5332, 1057, 19, 82, "Text",ExpressionUUID->"0b526697-41af-48e5-a68b-a5ac1a08b13d",
 CellID->376208704],
Cell[CellGroupData[{
Cell[232437, 5355, 250, 4, 38, "MathCaption",ExpressionUUID->"483720cf-22e4-4f1b-917e-d4be40ec508b",
 CellID->74636344],
Cell[CellGroupData[{
Cell[232712, 5363, 318, 8, 25, "Input",ExpressionUUID->"b504dbdb-bb1e-4643-8088-705fa73165aa",
 CellID->27082142],
Cell[233033, 5373, 278, 5, 33, "Output",ExpressionUUID->"7f090798-d55d-4637-9149-d47374d5cf01",
 CellID->211389169]
}, Open  ]],
Cell[CellGroupData[{
Cell[233348, 5383, 1675, 50, 118, "Input",ExpressionUUID->"c8ec272e-ffbd-4fc0-9c7e-9aeb7c1b5e05",
 CellID->74391681],
Cell[235026, 5435, 660, 16, 33, "Output",ExpressionUUID->"d6614354-1b95-4eeb-9ada-c94e4d19700f",
 CellID->437221212]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[235735, 5457, 1210, 34, 70, "MathCaption",ExpressionUUID->"62900f43-f39a-4357-9ed7-f651b9879f55",
 CellID->377405426],
Cell[CellGroupData[{
Cell[236970, 5495, 648, 14, 25, "Input",ExpressionUUID->"8ce4b680-bdfb-43f0-b7f2-d71d6ed641c8",
 CellID->226892160],
Cell[237621, 5511, 4902, 126, 345, "Output",ExpressionUUID->"316d3f66-b01b-473a-90ad-0ce0e20e5d2c",
 CellID->70235353]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[242572, 5643, 1139, 34, 70, "MathCaption",ExpressionUUID->"824c90bb-512d-4e87-a81c-1831d13258af",
 CellID->223203423],
Cell[CellGroupData[{
Cell[243736, 5681, 653, 14, 25, "Input",ExpressionUUID->"09e11c9d-f45f-4f6f-9c2e-78d09221dd77",
 CellID->85340092],
Cell[244392, 5697, 4866, 124, 345, "Output",ExpressionUUID->"e552ff8f-b319-4b35-95a6-ffad7130c6ac",
 CellID->62012074]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[249307, 5827, 559, 17, 39, "MathCaption",ExpressionUUID->"eba940f1-62df-4ccf-86aa-f62d60f8b3db",
 CellID->71349629],
Cell[CellGroupData[{
Cell[249891, 5848, 532, 13, 27, "Input",ExpressionUUID->"95f74d46-2a21-4d0b-a4b3-58914d31c878",
 CellID->85264410],
Cell[250426, 5863, 4994, 126, 351, "Output",ExpressionUUID->"64dc61e0-f970-4582-9a6f-4b058420be74",
 CellID->23706080]
}, Open  ]]
}, Open  ]],
Cell[255447, 5993, 1094, 30, 38, "Text",ExpressionUUID->"bd5229e2-b6de-445b-aa95-49295369c608",
 CellID->26121950]
}, Open  ]],
Cell[CellGroupData[{
Cell[256578, 6028, 199, 3, 50, "Section",ExpressionUUID->"3e39311c-ef79-4909-920c-f11841f631fa",
 CellID->776680],
Cell[256780, 6033, 347, 6, 36, "Text",ExpressionUUID->"76664a0c-c1af-432e-b030-55d942dab537",
 CellID->442085681],
Cell[257130, 6041, 432, 7, 51, "Text",ExpressionUUID->"04ae781a-99ef-4f6c-baec-9ea1611eaa7f",
 CellID->645428874]
}, Open  ]],
Cell[CellGroupData[{
Cell[257599, 6053, 120, 1, 70, "TutorialMoreAboutSection",ExpressionUUID->"7e428dc7-495a-4373-9a21-b1b3a19b3ab4",
 CellID->23220180],
Cell[257722, 6056, 282, 4, 20, "TutorialMoreAbout",ExpressionUUID->"ea5801a8-e0c0-4fc2-b2dc-c30069160f88",
 CellID->1567025153]
}, Open  ]],
Cell[CellGroupData[{
Cell[258041, 6065, 127, 1, 70, "RelatedTutorialsSection",ExpressionUUID->"ea1fda5c-8bbf-408f-8b3d-be04ea86e75e",
 CellID->415694126],
Cell[258171, 6068, 296, 5, 20, "RelatedTutorials",ExpressionUUID->"00091cfc-b84c-4a5a-87c6-1802462a14b9",
 CellID->90776795],
Cell[258470, 6075, 353, 6, 20, "RelatedTutorials",ExpressionUUID->"ccfda890-1674-41b0-aff9-e49f68b386b2",
 CellID->478075264],
Cell[258826, 6083, 485, 7, 20, "RelatedTutorials",ExpressionUUID->"bb21e040-2f8b-4b4c-beb8-c314ef675f34",
 CellID->279695321],
Cell[259314, 6092, 437, 6, 20, "RelatedTutorials",ExpressionUUID->"8f264907-00c0-43dd-9bbe-624614983973",
 CellID->806871991],
Cell[259754, 6100, 423, 6, 20, "RelatedTutorials",ExpressionUUID->"da8a8c10-4825-4b8a-91b4-456916609950",
 CellID->208940830],
Cell[260180, 6108, 352, 6, 20, "RelatedTutorials",ExpressionUUID->"6ff42bf7-2496-485a-b40d-e9331d38947e",
 CellID->6214240]
}, Open  ]],
Cell[CellGroupData[{
Cell[260569, 6119, 153, 1, 70, "TutorialRelatedLinksSection",ExpressionUUID->"de5be3d0-6a64-4d0d-8d28-f213f3f69207",
 CellID->415694148],
Cell[260725, 6122, 111, 1, 20, "TutorialRelatedLinks",ExpressionUUID->"4c5bc6dd-44c0-4f71-9cf2-8473cc9122fe",
 CellID->415694149]
}, Open  ]]
}, Open  ]]
}
]
*)

